KimStacks 7

home *** CD-ROM | disk | FTP | other *** search
/ KimStacks 7 / KimStacks CD-ROM 7 1993.iso / KimStacks & CD-ROM / Index next >
MacBinary | 1992-04-05 | 329.1 KB | [STAK/WILD]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	HyperCard Stack `(archive/hypercard)`	idMeta	Supported
`10%`	dexvert	Jesper Olsen Module `(music/jesperOlsen)`	magic	Supported
`1%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`100%`	file	MacBinary II, inited, busy, bundle, Fri Apr 3 06:44:24 1992, modified Sun Apr 5 22:45:05 1992, creator HyperCard, type HyperCard stack, 122880 bytes "Index" , at 0x1e080 213938 bytes resource	default (weak)
`99%`	file	data	default
`49%`	TrID	Mac HyperCard stack (MacBinary)	default
`33%`	TrID	TTComp archive compressed (bin-2K)	default (weak)
`16%`	TrID	MacBinary 2	default (weak)
`0%`	TrID	Sybase iAnywhere database files	default (weak)
`100%`	dearkID	deark: macbinary	default
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[STAK]`
macFileCreator	`[WILD]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 05 49 6e 64 65 78 00 | 00 00 00 00 00 00 00 00 |..Index.|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 25 00 00 00 00 00 00 |.STAKWIL|D%......|
|00000050| 00 00 00 00 01 e0 00 00 | 03 43 b2 a6 01 f5 98 a6 |........|.C......|
|00000060| 05 6b b1 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.k......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 9b fb 00 00 |........|........|
|00000080| 00 00 6e 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..n.STAK|........|
|00000090| 00 00 00 0a 00 01 e0 00 | 00 00 6e 00 00 00 00 00 |........|..n.....|
|000000a0| 00 00 00 00 00 00 00 01 | 00 00 0a ca 00 00 00 08 |........|........|
|000000b0| 00 00 08 eb 00 00 0e ea | 00 00 00 06 00 00 66 60 |........|......f`|
|000000c0| 00 00 09 6a 00 00 00 00 | 00 05 00 00 18 00 00 00 |...j....|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 02 10 80 00 02 10 80 00 | 02 10 80 00 02 10 80 00 |........|........|
|000000f0| d5 6b 29 ea 00 00 00 00 | 00 2a 00 40 01 4a 01 60 |.k).....|.*.@.J.`|
|00000100| 00 00 00 00 03 00 04 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 0d 1c 00 00 0c 48 | 01 20 01 20 00 00 00 00 |.......H|. . ....|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 70 00 00 00 06 80 | 00 00 a8 e0 00 00 00 c0 |..p.....|........|
|00000490| 00 00 cd c0 00 00 26 e0 | 00 01 4e e0 00 00 0a 80 |......&.|..N.....|
|000004a0| 00 01 73 80 00 00 03 e0 | 00 01 b6 00 00 00 29 e0 |..s.....|......).|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 2d 2d a5 0d 6f 6e 20 6f | 70 65 6e 53 74 61 63 6b |--..on o|penStack|
|00000690| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 2d 2d 20 53 |.-------|---.-- S|
|000006a0| 65 74 20 75 70 20 74 68 | 65 20 72 65 71 75 69 72 |et up th|e requir|
|000006b0| 65 64 20 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 2e 20 |ed envir|onment. |
|000006c0| 49 74 20 69 73 20 68 65 | 72 65 20 74 68 61 74 20 |It is he|re that |
|000006d0| 77 65 20 64 65 63 6c 61 | 72 65 0d 2d 2d 20 61 6c |we decla|re.-- al|
|000006e0| 6c 20 6f 75 72 20 67 6c | 6f 62 61 6c 20 76 61 72 |l our gl|obal var|
|000006f0| 69 61 62 6c 65 73 2e 20 | 4e 6f 74 65 20 74 68 61 |iables. |Note tha|
|00000700| 74 20 77 65 20 61 6c 6d | 6f 73 74 20 61 6c 77 61 |t we alm|ost alwa|
|00000710| 79 73 20 6f 6e 6c 79 20 | 75 73 65 20 61 0d 2d 2d |ys only |use a.--|
|00000720| 20 67 6c 6f 62 61 6c 20 | 76 61 72 69 61 62 6c 65 | global |variable|
|00000730| 20 69 66 20 77 65 20 69 | 6e 74 65 6e 64 20 74 6f | if we i|ntend to|
|00000740| 20 75 73 65 20 69 74 20 | 61 73 20 61 20 22 63 6f | use it |as a "co|
|00000750| 6e 73 74 61 6e 74 22 20 | 6f 75 74 73 69 64 65 20 |nstant" |outside |
|00000760| 6f 66 0d 2d 2d 20 74 68 | 69 73 20 68 61 6e 64 6c |of.-- th|is handl|
|00000770| 65 72 2e 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 67 |er..----|------.g|
|00000780| 6c 6f 62 61 6c 20 43 44 | 5f 50 41 54 48 20 20 20 |lobal CD|_PATH   |
|00000790| 20 20 20 20 2d 2d 20 70 | 61 74 68 20 74 6f 20 74 |    -- p|ath to t|
|000007a0| 68 65 20 4b 69 6d 53 74 | 61 63 6b 73 20 73 75 69 |he KimSt|acks sui|
|000007b0| 74 65 20 63 6f 6d 70 6f | 6e 65 6e 74 73 20 6f 6e |te compo|nents on|
|000007c0| 20 74 68 65 20 43 44 0d | 67 6c 6f 62 61 6c 20 48 | the CD.|global H|
|000007d0| 44 5f 50 41 54 48 20 20 | 20 20 20 20 20 2d 2d 20 |D_PATH  |     -- |
|000007e0| 70 61 74 68 20 74 6f 20 | 74 68 65 20 4b 69 6d 53 |path to |the KimS|
|000007f0| 74 61 63 6b 73 20 73 75 | 69 74 65 20 63 6f 6d 70 |tacks su|ite comp|
|00000800| 6f 6e 65 6e 74 73 20 6f | 6e 20 61 6e 20 48 44 0d |onents o|n an HD.|
|00000810| 67 6c 6f 62 61 6c 20 55 | 53 45 52 5f 45 4e 56 20 |global U|SER_ENV |
|00000820| 20 20 20 20 20 2d 2d 20 | 6c 69 73 74 20 6f 66 20 |     -- |list of |
|00000830| 69 74 65 6d 73 20 64 65 | 73 63 72 69 62 69 6e 67 |items de|scribing|
|00000840| 20 61 20 48 79 70 65 72 | 43 61 72 64 20 65 6e 76 | a Hyper|Card env|
|00000850| 69 72 6f 6e 6d 65 6e 74 | 0d 2d 2d 0d 67 6c 6f 62 |ironment|.--.glob|
|00000860| 61 6c 20 47 4f 4f 44 5f | 51 55 49 54 20 20 20 20 |al GOOD_|QUIT    |
|00000870| 20 2d 2d 20 61 72 65 20 | 77 65 20 71 75 69 74 74 | -- are |we quitt|
|00000880| 69 6e 67 20 61 74 20 74 | 68 65 20 75 73 65 72 73 |ing at t|he users|
|00000890| 20 72 65 71 75 65 73 74 | 3f 0d 70 75 74 20 46 41 | request|?.put FA|
|000008a0| 4c 53 45 20 69 6e 74 6f | 20 47 4f 4f 44 5f 51 55 |LSE into| GOOD_QU|
|000008b0| 49 54 0d 2d 2d 0d 73 65 | 74 20 74 68 65 20 63 75 |IT.--.se|t the cu|
|000008c0| 72 73 6f 72 20 74 6f 20 | 22 77 61 74 63 68 22 0d |rsor to |"watch".|
|000008d0| 73 65 74 20 74 68 65 20 | 63 61 6e 74 41 62 6f 72 |set the |cantAbor|
|000008e0| 74 20 6f 66 20 74 68 69 | 73 20 73 74 61 63 6b 20 |t of thi|s stack |
|000008f0| 74 6f 20 54 52 55 45 0d | 2d 2d 0d 69 66 20 63 68 |to TRUE.|--.if ch|
|00000900| 65 63 6b 4e 6f 41 55 58 | 28 29 20 3d 20 54 52 55 |eckNoAUX|() = TRU|
|00000910| 45 20 74 68 65 6e 0d 69 | 66 20 63 68 65 63 6b 48 |E then.i|f checkH|
|00000920| 79 70 65 72 43 61 72 64 | 28 22 30 32 31 30 38 30 |yperCard|("021080|
|00000930| 30 30 22 29 20 3d 20 54 | 52 55 45 20 74 68 65 6e |00") = T|RUE then|
|00000940| 0d 69 66 20 63 68 65 63 | 6b 53 79 73 74 65 6d 28 |.if chec|kSystem(|
|00000950| 22 37 2e 30 2e 30 22 29 | 20 3d 20 54 52 55 45 20 |"7.0.0")| = TRUE |
|00000960| 74 68 65 6e 0d 69 66 20 | 63 68 65 63 6b 51 44 28 |then.if |checkQD(|
|00000970| 22 33 32 2d 62 69 74 22 | 29 20 3d 20 54 52 55 45 |"32-bit"|) = TRUE|
|00000980| 20 74 68 65 6e 0d 70 75 | 74 20 22 4b 69 6d 53 74 | then.pu|t "KimSt|
|00000990| 61 63 6b 73 20 26 20 43 | 44 2d 52 4f 4d 3a 22 20 |acks & C|D-ROM:" |
|000009a0| 69 6e 74 6f 20 43 44 5f | 50 41 54 48 0d 2d 2d 2a |into CD_|PATH.--*|
|000009b0| 2a 20 74 6f 20 72 65 6d | 6f 76 65 20 43 44 2d 52 |* to rem|ove CD-R|
|000009c0| 4f 4d 20 64 65 70 65 6e | 64 65 6e 63 79 2c 20 63 |OM depen|dency, c|
|000009d0| 6f 6d 6d 65 6e 74 20 6f | 75 74 20 74 68 65 20 6e |omment o|ut the n|
|000009e0| 65 78 74 20 6c 69 6e 65 | 0d 69 66 20 63 64 50 72 |ext line|.if cdPr|
|000009f0| 65 73 65 6e 74 28 43 44 | 5f 50 41 54 48 29 20 3d |esent(CD|_PATH) =|
|00000a00| 20 54 52 55 45 20 74 68 | 65 6e 0d 70 75 74 20 67 | TRUE th|en.put g|
|00000a10| 65 74 53 74 61 63 6b 50 | 61 74 68 28 74 68 65 20 |etStackP|ath(the |
|00000a20| 6c 6f 6e 67 20 6e 61 6d | 65 20 6f 66 20 74 68 69 |long nam|e of thi|
|00000a30| 73 20 73 74 61 63 6b 29 | 20 69 6e 74 6f 20 48 44 |s stack)| into HD|
|00000a40| 5f 50 41 54 48 0d 69 66 | 20 66 72 6f 6d 43 44 28 |_PATH.if| fromCD(|
|00000a50| 43 44 5f 50 41 54 48 20 | 26 20 43 44 5f 50 41 54 |CD_PATH |& CD_PAT|
|00000a60| 48 2c 48 44 5f 50 41 54 | 48 29 20 3d 20 54 52 55 |H,HD_PAT|H) = TRU|
|00000a70| 45 20 74 68 65 6e 0d 61 | 73 6b 55 73 65 72 54 6f |E then.a|skUserTo|
|00000a80| 49 6e 73 74 61 6c 6c 20 | 22 50 6c 65 61 73 65 20 |Install |"Please |
|00000a90| 72 75 6e 20 74 68 65 20 | 4b 69 6d 53 74 61 63 6b |run the |KimStack|
|00000aa0| 73 20 26 20 43 44 2d 52 | 4f 4d 20 73 75 69 74 65 |s & CD-R|OM suite|
|00000ab0| 20 66 72 6f 6d 20 79 6f | 75 72 20 68 61 72 64 20 | from yo|ur hard |
|00000ac0| 64 69 73 63 21 22 0d 65 | 6c 73 65 0d 70 75 74 20 |disc!".e|lse.put |
|00000ad0| 67 65 74 55 73 65 72 45 | 6e 76 28 29 20 69 6e 74 |getUserE|nv() int|
|00000ae0| 6f 20 55 53 45 52 5f 45 | 4e 56 0d 64 65 66 69 6e |o USER_E|NV.defin|
|00000af0| 65 49 6e 64 65 78 53 74 | 61 63 6b 0d 64 65 66 69 |eIndexSt|ack.defi|
|00000b00| 6e 65 45 64 69 74 6f 72 | 46 6f 6c 64 65 72 0d 64 |neEditor|Folder.d|
|00000b10| 65 66 69 6e 65 50 72 6f | 64 75 63 74 46 6f 6c 64 |efinePro|ductFold|
|00000b20| 65 72 0d 64 65 66 69 6e | 65 44 65 6d 6f 46 6f 6c |er.defin|eDemoFol|
|00000b30| 64 65 72 0d 64 65 66 69 | 6e 65 47 61 6c 6c 65 72 |der.defi|neGaller|
|00000b40| 79 46 6f 6c 64 65 72 0d | 73 65 74 55 73 65 72 45 |yFolder.|setUserE|
|00000b50| 6e 76 0d 65 6e 64 20 69 | 66 0d 2d 2d 2a 2a 20 74 |nv.end i|f.--** t|
|00000b60| 6f 20 72 65 6d 6f 76 65 | 20 43 44 2d 52 4f 4d 20 |o remove| CD-ROM |
|00000b70| 64 65 70 65 6e 64 65 6e | 63 79 2c 20 63 6f 6d 6d |dependen|cy, comm|
|00000b80| 65 6e 74 20 6f 75 74 20 | 74 68 65 20 6e 65 78 74 |ent out |the next|
|00000b90| 20 36 20 6c 69 6e 65 73 | 0d 65 6c 73 65 0d 70 75 | 6 lines|.else.pu|
|00000ba0| 74 20 22 50 6c 65 61 73 | 65 20 72 75 6e 20 74 68 |t "Pleas|e run th|
|00000bb0| 65 20 73 74 61 63 6b 20 | 61 67 61 69 6e 20 77 69 |e stack |again wi|
|00000bc0| 74 68 22 20 c2 0d 26 26 | 20 6b 77 6f 74 65 28 63 |th" ..&&| kwote(c|
|00000bd0| 68 61 72 20 31 20 74 6f | 20 28 6c 65 6e 67 74 68 |har 1 to| (length|
|00000be0| 28 43 44 5f 50 41 54 48 | 29 20 2d 20 31 29 20 6f |(CD_PATH|) - 1) o|
|00000bf0| 66 20 43 44 5f 50 41 54 | 48 29 20 c2 0d 26 26 20 |f CD_PAT|H) ..&& |
|00000c00| 22 69 6e 20 61 20 43 44 | 2d 52 4f 4d 20 64 72 69 |"in a CD|-ROM dri|
|00000c10| 76 65 20 61 74 74 61 63 | 68 65 64 20 74 6f 20 79 |ve attac|hed to y|
|00000c20| 6f 75 72 20 4d 61 63 69 | 6e 74 6f 73 68 2e 22 20 |our Maci|ntosh." |
|00000c30| 69 6e 74 6f 20 70 72 6f | 6d 70 74 0d 71 75 69 74 |into pro|mpt.quit|
|00000c40| 4b 69 6d 53 74 61 63 6b | 73 20 70 72 6f 6d 70 74 |KimStack|s prompt|
|00000c50| 2c 54 52 55 45 0d 65 6e | 64 20 69 66 0d 65 6c 73 |,TRUE.en|d if.els|
|00000c60| 65 0d 70 75 74 20 22 59 | 6f 75 20 6d 75 73 74 20 |e.put "Y|ou must |
|00000c70| 75 73 65 20 33 32 2d 62 | 69 74 20 51 75 69 63 6b |use 32-b|it Quick|
|00000c80| 44 72 61 77 2e 22 20 69 | 6e 74 6f 20 70 72 6f 6d |Draw." i|nto prom|
|00000c90| 70 74 0d 71 75 69 74 4b | 69 6d 53 74 61 63 6b 73 |pt.quitK|imStacks|
|00000ca0| 20 70 72 6f 6d 70 74 2c | 54 52 55 45 0d 65 6e 64 | prompt,|TRUE.end|
|00000cb0| 20 69 66 0d 65 6c 73 65 | 0d 70 75 74 20 22 50 6c | if.else|.put "Pl|
|00000cc0| 65 61 73 65 20 75 70 67 | 72 61 64 65 20 74 6f 20 |ease upg|rade to |
|00000cd0| 53 79 73 74 65 6d 20 37 | 20 6f 72 20 67 72 65 61 |System 7| or grea|
|00000ce0| 74 65 72 2e 20 49 74 20 | 69 73 20 77 65 6c 6c 20 |ter. It |is well |
|00000cf0| 77 6f 72 74 68 20 74 68 | 65 20 65 66 66 6f 72 74 |worth th|e effort|
|00000d00| 2e 22 20 69 6e 74 6f 20 | 70 72 6f 6d 70 74 0d 71 |." into |prompt.q|
|00000d10| 75 69 74 4b 69 6d 53 74 | 61 63 6b 73 20 70 72 6f |uitKimSt|acks pro|
|00000d20| 6d 70 74 2c 54 52 55 45 | 0d 65 6e 64 20 69 66 0d |mpt,TRUE|.end if.|
|00000d30| 65 6c 73 65 0d 70 75 74 | 20 22 50 6c 65 61 73 65 |else.put| "Please|
|00000d40| 20 75 70 67 72 61 64 65 | 20 74 6f 20 48 79 70 65 | upgrade| to Hype|
|00000d50| 72 43 61 72 64 20 32 2e | 31 20 6f 72 20 67 72 65 |rCard 2.|1 or gre|
|00000d60| 61 74 65 72 20 2d 20 79 | 6f 75 27 6c 6c 20 6c 69 |ater - y|ou'll li|
|00000d70| 6b 65 20 69 74 2e 22 20 | 69 6e 74 6f 20 70 72 6f |ke it." |into pro|
|00000d80| 6d 70 74 0d 71 75 69 74 | 4b 69 6d 53 74 61 63 6b |mpt.quit|KimStack|
|00000d90| 73 20 70 72 6f 6d 70 74 | 2c 54 52 55 45 0d 65 6e |s prompt|,TRUE.en|
|00000da0| 64 20 69 66 0d 65 6c 73 | 65 0d 70 75 74 20 22 59 |d if.els|e.put "Y|
|00000db0| 6f 75 20 63 61 6e 6e 6f | 74 20 75 73 65 20 4b 69 |ou canno|t use Ki|
|00000dc0| 6d 53 74 61 63 6b 73 20 | 26 20 43 44 2d 52 4f 4d |mStacks |& CD-ROM|
|00000dd0| 20 75 6e 64 65 72 20 41 | 55 2f 58 2e 22 20 69 6e | under A|U/X." in|
|00000de0| 74 6f 20 70 72 6f 6d 70 | 74 0d 71 75 69 74 4b 69 |to promp|t.quitKi|
|00000df0| 6d 53 74 61 63 6b 73 20 | 70 72 6f 6d 70 74 2c 54 |mStacks |prompt,T|
|00000e00| 52 55 45 0d 65 6e 64 20 | 69 66 0d 65 6e 64 20 6f |RUE.end |if.end o|
|00000e10| 70 65 6e 53 74 61 63 6b | 0d 0d 2d 2d a5 0d 6f 6e |penStack|..--..on|
|00000e20| 20 63 6c 6f 73 65 53 74 | 61 63 6b 0d 2d 2d 2d 2d | closeSt|ack.----|
|00000e30| 2d 2d 2d 2d 2d 2d 2d 0d | 2d 2d 20 50 75 74 20 74 |-------.|-- Put t|
|00000e40| 68 65 20 75 73 65 72 27 | 73 20 65 6e 76 69 72 6f |he user'|s enviro|
|00000e50| 6e 6d 65 6e 74 20 62 61 | 63 6b 20 74 68 65 20 77 |nment ba|ck the w|
|00000e60| 61 79 20 69 74 20 77 61 | 73 20 62 65 66 6f 72 65 |ay it wa|s before|
|00000e70| 20 77 65 20 6c 61 75 6e | 63 68 65 64 2e 0d 2d 2d | we laun|ched..--|
|00000e80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 2d 2d 20 72 65 73 |--------|-.-- res|
|00000e90| 65 74 55 73 65 72 45 6e | 76 0d 2d 2d 0d 67 6c 6f |etUserEn|v.--.glo|
|00000ea0| 62 61 6c 20 47 4f 4f 44 | 5f 51 55 49 54 0d 69 66 |bal GOOD|_QUIT.if|
|00000eb0| 20 47 4f 4f 44 5f 51 55 | 49 54 20 3d 20 46 41 4c | GOOD_QU|IT = FAL|
|00000ec0| 53 45 20 74 68 65 6e 0d | 61 6e 73 77 65 72 20 22 |SE then.|answer "|
|00000ed0| 51 75 69 74 74 69 6e 67 | 22 20 26 26 20 6b 77 6f |Quitting|" && kwo|
|00000ee0| 74 65 28 22 4b 69 6d 53 | 74 61 63 6b 73 20 26 20 |te("KimS|tacks & |
|00000ef0| 43 44 2d 52 4f 4d 22 29 | 20 26 26 20 22 61 6e 64 |CD-ROM")| && "and|
|00000f00| 20 72 65 74 75 72 6e 69 | 6e 67 20 74 6f 20 74 68 | returni|ng to th|
|00000f10| 65 20 44 65 73 6b 74 6f | 70 2e 22 0d 64 6f 4d 65 |e Deskto|p.".doMe|
|00000f20| 6e 75 20 22 51 75 69 74 | 20 48 79 70 65 72 43 61 |nu "Quit| HyperCa|
|00000f30| 72 64 22 0d 65 6c 73 65 | 0d 72 65 73 65 74 55 73 |rd".else|.resetUs|
|00000f40| 65 72 45 6e 76 0d 65 6e | 64 20 69 66 0d 65 6e 64 |erEnv.en|d if.end|
|00000f50| 20 63 6c 6f 73 65 53 74 | 61 63 6b 0d 0d 2d 2d a5 | closeSt|ack..--.|
|00000f60| 0d 6f 6e 20 72 65 73 75 | 6d 65 53 74 61 63 6b 0d |.on resu|meStack.|
|00000f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 2d 2d 20 |--------|----.-- |
|00000f80| 4d 61 6b 65 20 73 75 72 | 65 20 74 68 61 74 20 74 |Make sur|e that t|
|00000f90| 68 69 6e 67 73 20 61 72 | 65 20 61 73 20 74 68 65 |hings ar|e as the|
|00000fa0| 79 20 77 65 72 65 20 62 | 65 66 6f 72 65 20 74 68 |y were b|efore th|
|00000fb0| 65 20 75 73 65 72 20 65 | 6e 74 65 72 65 64 0d 2d |e user e|ntered.-|
|00000fc0| 2d 20 61 20 73 74 61 63 | 6b 20 6f 75 74 73 69 64 |- a stac|k outsid|
|00000fd0| 65 20 6f 66 20 74 68 65 | 20 22 4b 69 6d 53 74 61 |e of the| "KimSta|
|00000fe0| 63 6b 73 22 20 63 6f 6c | 6c 65 63 74 69 6f 6e 2e |cks" col|lection.|
|00000ff0| 20 4e 6f 74 65 20 74 68 | 61 74 20 74 68 65 20 62 | Note th|at the b|
|00001000| 65 68 61 76 69 6f 75 72 | 0d 2d 2d 20 6f 66 20 74 |ehaviour|.-- of t|
|00001010| 68 65 20 22 72 65 73 75 | 6d 65 53 74 61 63 6b 22 |he "resu|meStack"|
|00001020| 20 6d 65 73 73 61 67 65 | 20 61 70 70 65 61 72 73 | message| appears|
|00001030| 20 74 6f 20 62 65 20 65 | 72 72 61 74 69 63 2e 20 | to be e|rratic. |
|00001040| 49 74 20 69 73 20 6e 6f | 74 20 61 6c 77 61 79 73 |It is no|t always|
|00001050| 0d 2d 2d 20 73 65 6e 74 | 20 65 61 63 68 20 74 69 |.-- sent| each ti|
|00001060| 6d 65 20 6f 6e 65 20 72 | 65 73 75 6d 65 73 20 61 |me one r|esumes a|
|00001070| 20 73 74 61 63 6b 2e 20 | 39 39 25 20 6f 66 20 74 | stack. |99% of t|
|00001080| 68 65 20 74 69 6d 65 20 | 69 74 27 73 20 4f 4b 2c |he time |it's OK,|
|00001090| 20 62 75 74 c9 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | but..--|--------|
|000010a0| 2d 2d 0d 73 65 74 55 73 | 65 72 45 6e 76 0d 65 6e |--.setUs|erEnv.en|
|000010b0| 64 20 72 65 73 75 6d 65 | 53 74 61 63 6b 0d 0d 2d |d resume|Stack..-|
|000010c0| 2d a5 0d 6f 6e 20 72 65 | 73 75 6d 65 0d 2d 2d 2d |-..on re|sume.---|
|000010d0| 2d 2d 2d 2d 0d 2d 2d 20 | 54 68 65 20 73 61 6d 65 |----.-- |The same|
|000010e0| 20 61 73 20 72 65 73 75 | 6d 65 53 74 61 63 6b 20 | as resu|meStack |
|000010f0| 62 75 74 20 66 6f 72 20 | 77 68 65 6e 20 77 65 20 |but for |when we |
|00001100| 63 6f 6d 65 20 62 61 63 | 6b 20 66 72 6f 6d 20 73 |come bac|k from s|
|00001110| 6f 6d 65 20 61 70 70 6c | 69 63 61 74 69 6f 6e 0d |ome appl|ication.|
|00001120| 2d 2d 20 6f 75 74 73 69 | 64 65 20 6f 66 20 48 79 |-- outsi|de of Hy|
|00001130| 70 65 72 43 61 72 64 2e | 0d 2d 2d 2d 2d 2d 2d 2d |perCard.|.-------|
|00001140| 0d 73 65 6e 64 20 22 6f | 70 65 6e 53 74 61 63 6b |.send "o|penStack|
|00001150| 22 0d 65 6e 64 20 72 65 | 73 75 6d 65 0d 0d 2d 2d |".end re|sume..--|
|00001160| a5 0d 66 75 6e 63 74 69 | 6f 6e 20 63 64 50 72 65 |..functi|on cdPre|
|00001170| 73 65 6e 74 20 74 68 65 | 43 44 0d 2d 2d 2d 2d 2d |sent the|CD.-----|
|00001180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001190| 2d 0d 2d 2d 20 43 68 65 | 63 6b 20 74 68 61 74 20 |-.-- Che|ck that |
|000011a0| 61 20 43 44 2d 52 4f 4d | 20 64 72 69 76 65 20 69 |a CD-ROM| drive i|
|000011b0| 73 20 70 72 65 73 65 6e | 74 20 61 6e 64 20 74 68 |s presen|t and th|
|000011c0| 61 74 20 74 68 65 20 73 | 70 65 63 69 66 69 65 64 |at the s|pecified|
|000011d0| 0d 2d 2d 20 43 44 2d 52 | 4f 4d 20 69 73 20 6d 6f |.-- CD-R|OM is mo|
|000011e0| 75 6e 74 65 64 2e 20 52 | 65 74 75 72 6e 20 54 52 |unted. R|eturn TR|
|000011f0| 55 45 20 69 66 20 61 6c | 6c 20 69 73 20 77 65 6c |UE if al|l is wel|
|00001200| 6c 2c 20 46 41 4c 53 45 | 20 6f 74 68 65 72 77 69 |l, FALSE| otherwi|
|00001210| 73 65 2e 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |se..----|--------|
|00001220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 70 75 74 20 63 |--------|--.put c|
|00001230| 64 44 72 69 76 65 4c 69 | 73 74 28 29 20 69 6e 74 |dDriveLi|st() int|
|00001240| 6f 20 63 64 4c 69 73 74 | 0d 69 66 20 63 64 4c 69 |o cdList|.if cdLi|
|00001250| 73 74 20 ad 20 65 6d 70 | 74 79 20 74 68 65 6e 0d |st . emp|ty then.|
|00001260| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 20 3d 20 |repeat w|ith i = |
|00001270| 31 20 74 6f 20 28 6e 75 | 6d 62 65 72 20 6f 66 20 |1 to (nu|mber of |
|00001280| 69 74 65 6d 73 20 69 6e | 20 6c 69 6e 65 20 31 20 |items in| line 1 |
|00001290| 6f 66 20 63 64 4c 69 73 | 74 29 0d 69 66 20 69 74 |of cdLis|t).if it|
|000012a0| 65 6d 20 69 20 6f 66 20 | 6c 69 6e 65 20 32 20 6f |em i of |line 2 o|
|000012b0| 66 20 63 64 4c 69 73 74 | 20 ad 20 46 41 4c 53 45 |f cdList| . FALSE|
|000012c0| 20 74 68 65 6e 0d 70 75 | 74 20 69 74 65 6d 20 69 | then.pu|t item i|
|000012d0| 20 6f 66 20 6c 69 6e 65 | 20 31 20 6f 66 20 63 64 | of line| 1 of cd|
|000012e0| 4c 69 73 74 20 69 6e 74 | 6f 20 74 65 73 74 44 72 |List int|o testDr|
|000012f0| 69 76 65 0d 70 75 74 20 | 53 43 53 49 4e 61 6d 65 |ive.put |SCSIName|
|00001300| 28 74 65 73 74 44 72 69 | 76 65 2c 22 6e 6f 44 69 |(testDri|ve,"noDi|
|00001310| 61 6c 6f 67 3a 65 72 72 | 47 6c 6f 62 61 6c 22 29 |alog:err|Global")|
|00001320| 20 69 6e 74 6f 20 61 43 | 44 0d 69 66 20 61 43 44 | into aC|D.if aCD|
|00001330| 20 3d 20 74 68 65 43 44 | 20 74 68 65 6e 0d 72 65 | = theCD| then.re|
|00001340| 74 75 72 6e 20 54 52 55 | 45 0d 65 6e 64 20 69 66 |turn TRU|E.end if|
|00001350| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 72 65 70 65 |.end if.|end repe|
|00001360| 61 74 0d 65 6e 64 20 69 | 66 0d 2d 2d 0d 64 65 6c |at.end i|f.--.del|
|00001370| 65 74 65 20 6c 61 73 74 | 20 63 68 61 72 20 6f 66 |ete last| char of|
|00001380| 20 74 68 65 43 44 0d 70 | 75 74 20 22 49 20 63 61 | theCD.p|ut "I ca|
|00001390| 6e 27 74 20 66 69 6e 64 | 20 61 20 43 44 2d 52 4f |n't find| a CD-RO|
|000013a0| 4d 20 63 61 6c 6c 65 64 | 22 20 26 26 20 6b 77 6f |M called|" && kwo|
|000013b0| 74 65 28 74 68 65 43 44 | 29 20 c2 0d 26 20 22 2e |te(theCD|) ..& ".|
|000013c0| 20 54 68 69 73 20 69 73 | 20 6e 65 65 64 65 64 20 | This is| needed |
|000013d0| 66 6f 72 20 62 65 73 74 | 20 75 73 65 20 6f 66 20 |for best| use of |
|000013e0| 74 68 69 73 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |this app|lication|
|000013f0| 2e 22 20 c2 0d 26 26 20 | 22 44 6f 20 79 6f 75 20 |." ..&& |"Do you |
|00001400| 77 61 6e 74 20 74 6f 20 | 63 6f 6e 74 69 6e 75 65 |want to |continue|
|00001410| 3f 22 20 69 6e 74 6f 20 | 70 72 6f 6d 70 74 0d 69 |?" into |prompt.i|
|00001420| 66 20 63 6f 6e 66 69 72 | 6d 28 70 72 6f 6d 70 74 |f confir|m(prompt|
|00001430| 2c 22 59 65 73 22 2c 22 | 4e 6f 22 29 20 3d 20 22 |,"Yes","|No") = "|
|00001440| 59 65 73 22 20 74 68 65 | 6e 0d 72 65 74 75 72 6e |Yes" the|n.return|
|00001450| 20 54 52 55 45 0d 65 6c | 73 65 0d 72 65 74 75 72 | TRUE.el|se.retur|
|00001460| 6e 20 46 41 4c 53 45 0d | 65 6e 64 20 69 66 0d 65 |n FALSE.|end if.e|
|00001470| 6e 64 20 63 64 50 52 65 | 73 65 6e 74 0d 0d 2d 2d |nd cdPRe|sent..--|
|00001480| a5 0d 66 75 6e 63 74 69 | 6f 6e 20 68 61 76 65 43 |..functi|on haveC|
|00001490| 6f 6c 6f 75 72 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |olour.--|--------|
|000014a0| 2d 2d 2d 2d 2d 2d 2d 0d | 2d 2d 20 52 65 74 75 72 |-------.|-- Retur|
|000014b0| 6e 73 20 54 52 55 45 20 | 69 66 20 74 68 65 20 63 |ns TRUE |if the c|
|000014c0| 6f 6c 6f 75 72 20 64 65 | 70 74 68 20 69 73 20 3e |olour de|pth is >|
|000014d0| 3d 20 32 35 36 2c 20 61 | 6e 64 20 46 41 4c 53 45 |= 256, a|nd FALSE|
|000014e0| 20 6f 74 68 65 72 77 69 | 73 65 2e 0d 2d 2d 2d 2d | otherwi|se..----|
|000014f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 72 65 |--------|-----.re|
|00001500| 74 75 72 6e 20 64 69 73 | 70 6c 61 79 43 6f 6c 6f |turn dis|playColo|
|00001510| 72 73 28 29 20 3e 3d 20 | 32 35 36 0d 65 6e 64 20 |rs() >= |256.end |
|00001520| 68 61 76 65 43 6f 6c 6f | 75 72 0d 0d 2d 2d a5 0d |haveColo|ur..--..|
|00001530| 66 75 6e 63 74 69 6f 6e | 20 68 61 76 65 45 78 61 |function| haveExa|
|00001540| 63 74 43 6f 6c 6f 75 72 | 0d 2d 2d 2d 2d 2d 2d 2d |ctColour|.-------|
|00001550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00001560| 2d 2d 20 52 65 74 75 72 | 6e 73 20 74 68 65 20 63 |-- Retur|ns the c|
|00001570| 6f 6c 6f 75 72 20 64 65 | 70 74 68 20 61 73 20 61 |olour de|pth as a|
|00001580| 6e 20 69 6e 74 65 67 65 | 72 20 62 65 74 77 65 65 |n intege|r betwee|
|00001590| 6e 20 31 20 61 6e 64 20 | 31 36 37 37 37 32 31 36 |n 1 and |16777216|
|000015a0| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|000015b0| 2d 2d 2d 2d 2d 2d 2d 0d | 72 65 74 75 72 6e 20 64 |-------.|return d|
|000015c0| 69 73 70 6c 61 79 43 6f | 6c 6f 72 73 28 29 0d 65 |isplayCo|lors().e|
|000015d0| 6e 64 20 68 61 76 65 45 | 78 61 63 74 43 6f 6c 6f |nd haveE|xactColo|
|000015e0| 75 72 0d 0d 2d 2d a5 0d | 66 75 6e 63 74 69 6f 6e |ur..--..|function|
|000015f0| 20 68 61 76 65 51 75 69 | 63 6b 54 69 6d 65 0d 2d | haveQui|ckTime.-|
|00001600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001610| 2d 2d 2d 0d 2d 2d 20 52 | 65 74 75 72 6e 73 20 54 |---.-- R|eturns T|
|00001620| 52 55 45 20 69 66 20 51 | 75 69 63 6b 54 69 6d 65 |RUE if Q|uickTime|
|00001630| 20 69 73 20 69 6e 73 74 | 61 6c 6c 65 64 2c 20 61 | is inst|alled, a|
|00001640| 6e 64 20 46 41 4c 53 45 | 20 6f 74 68 65 72 77 69 |nd FALSE| otherwi|
|00001650| 73 65 2e 0d 2d 2d 20 49 | 74 20 61 6c 77 61 79 73 |se..-- I|t always|
|00001660| 20 72 65 74 75 72 6e 73 | 20 46 41 4c 53 45 20 69 | returns| FALSE i|
|00001670| 66 20 74 68 65 20 43 50 | 55 20 69 73 20 61 20 36 |f the CP|U is a 6|
|00001680| 38 30 32 30 20 6f 72 20 | 6c 65 73 73 2e 20 54 68 |8020 or |less. Th|
|00001690| 69 73 20 69 73 0d 2d 2d | 20 6e 6f 74 20 61 20 74 |is is.--| not a t|
|000016a0| 65 73 74 20 66 6f 72 20 | 51 75 69 63 6b 54 69 6d |est for |QuickTim|
|000016b0| 65 20 68 6f 77 65 76 65 | 72 2c 20 6a 75 73 74 20 |e howeve|r, just |
|000016c0| 66 6f 72 20 73 6f 6d 65 | 20 75 73 65 72 20 74 68 |for some| user th|
|000016d0| 61 74 27 73 20 74 72 79 | 69 6e 67 0d 2d 2d 20 74 |at's try|ing.-- t|
|000016e0| 6f 20 62 65 20 73 6d 61 | 72 74 21 20 54 68 65 20 |o be sma|rt! The |
|000016f0| 6f 6e 6c 79 20 74 65 73 | 74 20 66 6f 72 20 51 75 |only tes|t for Qu|
|00001700| 69 63 6b 54 69 6d 65 20 | 69 74 73 65 6c 66 20 69 |ickTime |itself i|
|00001710| 73 20 76 69 61 20 74 68 | 65 0d 2d 2d 20 47 65 73 |s via th|e.-- Ges|
|00001720| 74 61 6c 74 20 4d 61 6e | 61 67 65 72 2e 0d 2d 2d |talt Man|ager..--|
|00001730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001740| 2d 2d 0d 69 66 20 68 61 | 76 65 47 65 73 74 61 6c |--.if ha|veGestal|
|00001750| 74 28 29 20 3d 20 54 52 | 55 45 20 74 68 65 6e 0d |t() = TR|UE then.|
|00001760| 69 66 20 67 65 73 74 61 | 6c 74 43 50 55 28 29 20 |if gesta|ltCPU() |
|00001770| 3c 3d 20 22 36 38 30 32 | 30 22 20 74 68 65 6e 20 |<= "6802|0" then |
|00001780| 2d 2d 20 6e 6f 20 63 68 | 61 6e 63 65 0d 72 65 74 |-- no ch|ance.ret|
|00001790| 75 72 6e 20 46 41 4c 53 | 45 0d 65 6c 73 65 0d 72 |urn FALS|E.else.r|
|000017a0| 65 74 75 72 6e 20 67 65 | 73 74 61 6c 74 51 75 69 |eturn ge|staltQui|
|000017b0| 63 6b 54 69 6d 65 28 29 | 20 2d 2d 20 6d 69 67 68 |ckTime()| -- migh|
|000017c0| 74 20 62 65 20 74 75 72 | 6e 65 64 20 6f 66 66 0d |t be tur|ned off.|
|000017d0| 65 6e 64 20 69 66 0d 65 | 6e 64 20 69 66 0d 65 6e |end if.e|nd if.en|
|000017e0| 64 20 68 61 76 65 51 75 | 69 63 6b 54 69 6d 65 0d |d haveQu|ickTime.|
|000017f0| 0d 2d 2d a5 0d 66 75 6e | 63 74 69 6f 6e 20 73 63 |.--..fun|ction sc|
|00001800| 72 65 65 6e 53 69 7a 65 | 0d 2d 2d 2d 2d 2d 2d 2d |reenSize|.-------|
|00001810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 2d 2d 20 52 65 |--------|--.-- Re|
|00001820| 74 75 72 6e 73 20 74 68 | 65 20 73 63 72 65 65 6e |turns th|e screen|
|00001830| 20 73 69 7a 65 20 69 6e | 20 74 68 65 20 66 6f 72 | size in| the for|
|00001840| 6d 20 3c 77 69 64 74 68 | 3e 78 3c 68 65 69 67 68 |m <width|>x<heigh|
|00001850| 74 3e 2e 20 54 68 69 73 | 20 69 73 0d 2d 2d 20 6e |t>. This| is.-- n|
|00001860| 65 65 64 65 64 20 74 6f | 20 62 75 69 6c 64 20 63 |eeded to| build c|
|00001870| 65 72 74 61 69 6e 20 70 | 61 74 68 20 6e 61 6d 65 |ertain p|ath name|
|00001880| 73 2e 20 41 6e 79 20 66 | 6c 61 73 68 20 62 75 67 |s. Any f|lash bug|
|00001890| 67 65 72 20 77 69 74 68 | 20 61 20 62 69 67 0d 2d |ger with| a big.-|
|000018a0| 2d 20 6d 6f 6e 69 74 6f | 72 20 28 6d 65 20 66 6f |- monito|r (me fo|
|000018b0| 72 20 69 6e 73 74 61 6e | 63 65 29 20 64 65 66 61 |r instan|ce) defa|
|000018c0| 75 6c 74 73 20 74 6f 20 | 61 20 31 33 22 2e 0d 2d |ults to |a 13"..-|
|000018d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018e0| 0d 70 75 74 20 73 63 72 | 65 65 6e 52 65 63 74 28 |.put scr|eenRect(|
|000018f0| 29 20 69 6e 74 6f 20 73 | 52 65 63 74 0d 69 66 20 |) into s|Rect.if |
|00001900| 69 74 65 6d 20 33 20 6f | 66 20 73 52 65 63 74 20 |item 3 o|f sRect |
|00001910| 3e 20 36 34 30 20 6f 72 | 20 69 74 65 6d 20 34 20 |> 640 or| item 4 |
|00001920| 6f 66 20 73 52 65 63 74 | 20 3e 20 34 38 30 20 74 |of sRect| > 480 t|
|00001930| 68 65 6e 0d 70 75 74 20 | 22 36 34 30 78 34 38 30 |hen.put |"640x480|
|00001940| 22 20 69 6e 74 6f 20 73 | 63 72 53 69 7a 65 0d 65 |" into s|crSize.e|
|00001950| 6c 73 65 0d 70 75 74 20 | 69 74 65 6d 20 33 20 6f |lse.put |item 3 o|
|00001960| 66 20 73 52 65 63 74 20 | 26 20 22 78 22 20 26 20 |f sRect |& "x" & |
|00001970| 69 74 65 6d 20 34 20 6f | 66 20 73 52 65 63 74 20 |item 4 o|f sRect |
|00001980| 69 6e 74 6f 20 73 63 72 | 53 69 7a 65 0d 65 6e 64 |into scr|Size.end|
|00001990| 20 69 66 0d 72 65 74 75 | 72 6e 20 73 63 72 53 69 | if.retu|rn scrSi|
|000019a0| 7a 65 0d 65 6e 64 20 73 | 63 72 65 65 6e 53 69 7a |ze.end s|creenSiz|
|000019b0| 65 0d 0d 2d 2d a5 0d 66 | 75 6e 63 74 69 6f 6e 20 |e..--..f|unction |
|000019c0| 63 68 65 63 6b 48 79 70 | 65 72 43 61 72 64 20 70 |checkHyp|erCard p|
|000019d0| 72 65 66 56 65 72 73 0d | 2d 2d 2d 2d 2d 2d 2d 2d |refVers.|--------|
|000019e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019f0| 2d 2d 2d 2d 2d 2d 0d 2d | 2d 20 43 68 65 63 6b 20 |------.-|- Check |
|00001a00| 74 68 61 74 20 74 68 65 | 20 76 65 72 73 69 6f 6e |that the| version|
|00001a10| 20 6f 66 20 48 79 70 65 | 72 43 61 72 64 20 62 65 | of Hype|rCard be|
|00001a20| 69 6e 67 20 75 73 65 64 | 20 74 6f 20 72 75 6e 20 |ing used| to run |
|00001a30| 4b 69 6d 53 74 61 63 6b | 73 0d 2d 2d 20 69 73 20 |KimStack|s.-- is |
|00001a40| 6f 6e 65 20 74 68 61 74 | 20 69 73 20 63 6f 6d 70 |one that| is comp|
|00001a50| 61 74 69 62 6c 65 2e 20 | 49 66 20 69 74 20 69 73 |atible. |If it is|
|00001a60| 2c 20 72 65 74 75 72 6e | 20 54 52 55 45 3b 20 69 |, return| TRUE; i|
|00001a70| 66 20 69 74 20 6d 69 67 | 68 74 20 62 65 2c 0d 2d |f it mig|ht be,.-|
|00001a80| 2d 20 61 73 6b 20 74 68 | 65 20 75 73 65 72 20 74 |- ask th|e user t|
|00001a90| 6f 20 63 68 6f 6f 73 65 | 3b 20 69 66 20 69 74 20 |o choose|; if it |
|00001aa0| 69 73 6e 27 74 20 72 65 | 74 75 72 6e 20 46 41 4c |isn't re|turn FAL|
|00001ab0| 53 45 2e 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |SE..----|--------|
|00001ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ad0| 2d 2d 0d 70 75 74 20 74 | 68 65 20 6c 6f 6e 67 20 |--.put t|he long |
|00001ae0| 76 65 72 73 69 6f 6e 20 | 69 6e 74 6f 20 74 68 65 |version |into the|
|00001af0| 56 65 72 73 0d 69 66 20 | 74 68 65 56 65 72 73 20 |Vers.if |theVers |
|00001b00| 3d 20 70 72 65 66 56 65 | 72 73 20 74 68 65 6e 0d |= prefVe|rs then.|
|00001b10| 72 65 74 75 72 6e 20 54 | 52 55 45 0d 65 6c 73 65 |return T|RUE.else|
|00001b20| 20 69 66 20 63 68 61 72 | 20 31 20 74 6f 20 32 20 | if char| 1 to 2 |
|00001b30| 6f 66 20 70 72 65 66 56 | 65 72 73 20 3d 20 63 68 |of prefV|ers = ch|
|00001b40| 61 72 20 31 20 74 6f 20 | 32 20 6f 66 20 74 68 65 |ar 1 to |2 of the|
|00001b50| 56 65 72 73 20 74 68 65 | 6e 0d 70 75 74 20 22 48 |Vers the|n.put "H|
|00001b60| 79 70 65 72 43 61 72 64 | 22 20 26 26 20 74 68 65 |yperCard|" && the|
|00001b70| 20 76 65 72 73 69 6f 6e | 20 26 26 20 22 69 73 20 | version| && "is |
|00001b80| 6e 6f 74 20 69 64 65 61 | 6c 20 66 6f 72 20 72 75 |not idea|l for ru|
|00001b90| 6e 6e 69 6e 67 22 20 c2 | 0d 26 26 20 22 4b 69 6d |nning" .|.&& "Kim|
|00001ba0| 53 74 61 63 6b 73 20 26 | 20 43 44 2d 52 4f 4d 2e |Stacks &| CD-ROM.|
|00001bb0| 20 59 6f 75 20 6d 61 79 | 20 63 6f 6e 74 69 6e 75 | You may| continu|
|00001bc0| 65 2c 20 62 75 74 20 77 | 65 20 63 61 6e 6e 6f 74 |e, but w|e cannot|
|00001bd0| 20 67 75 61 72 61 6e 74 | 65 65 22 20 c2 0d 26 26 | guarant|ee" ..&&|
|00001be0| 20 22 74 68 61 74 20 61 | 6c 6c 20 66 75 6e 63 74 | "that a|ll funct|
|00001bf0| 69 6f 6e 73 20 77 69 6c | 6c 20 62 65 68 61 76 65 |ions wil|l behave|
|00001c00| 20 61 73 20 74 68 65 79 | 20 73 68 6f 75 6c 64 2e | as they| should.|
|00001c10| 20 44 6f 20 79 6f 75 20 | 77 61 6e 74 22 20 c2 0d | Do you |want" ..|
|00001c20| 26 26 20 22 74 6f 20 63 | 61 72 72 79 20 6f 6e 3f |&& "to c|arry on?|
|00001c30| 22 20 69 6e 74 6f 20 70 | 72 6f 6d 70 74 0d 72 65 |" into p|rompt.re|
|00001c40| 74 75 72 6e 20 63 6f 6e | 66 69 72 6d 28 70 72 6f |turn con|firm(pro|
|00001c50| 6d 70 74 2c 22 59 65 73 | 22 2c 22 4e 6f 22 29 20 |mpt,"Yes|","No") |
|00001c60| 3d 20 22 59 65 73 22 0d | 65 6c 73 65 0d 61 6c 65 |= "Yes".|else.ale|
|00001c70| 72 74 20 22 48 79 70 65 | 72 43 61 72 64 22 20 26 |rt "Hype|rCard" &|
|00001c80| 26 20 74 68 65 20 76 65 | 72 73 69 6f 6e 20 26 26 |& the ve|rsion &&|
|00001c90| 20 22 63 61 6e 6e 6f 74 | 20 62 65 20 75 73 65 64 | "cannot| be used|
|00001ca0| 20 74 6f 20 72 75 6e 22 | 20 c2 0d 26 26 20 22 4b | to run"| ..&& "K|
|00001cb0| 69 6d 53 74 61 63 6b 73 | 20 26 20 43 44 2d 52 4f |imStacks| & CD-RO|
|00001cc0| 4d 2e 20 53 6f 72 72 79 | 2e 22 0d 72 65 74 75 72 |M. Sorry|.".retur|
|00001cd0| 6e 20 46 41 4c 53 45 0d | 65 6e 64 20 69 66 0d 65 |n FALSE.|end if.e|
|00001ce0| 6e 64 20 63 68 65 63 6b | 48 79 70 65 72 43 61 72 |nd check|HyperCar|
|00001cf0| 64 0d 0d 2d 2d a5 0d 66 | 75 6e 63 74 69 6f 6e 20 |d..--..f|unction |
|00001d00| 63 68 65 63 6b 53 79 73 | 74 65 6d 20 70 72 65 66 |checkSys|tem pref|
|00001d10| 53 79 73 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |Sys.----|--------|
|00001d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 2d |--------|------.-|
|00001d30| 2d 20 41 6e 79 20 76 65 | 72 73 69 6f 6e 20 6f 66 |- Any ve|rsion of|
|00001d40| 20 74 68 65 20 53 79 73 | 74 65 6d 20 74 68 61 74 | the Sys|tem that|
|00001d50| 20 69 73 20 74 6f 6f 20 | 65 61 72 6c 79 20 74 6f | is too |early to|
|00001d60| 20 68 61 76 65 20 67 65 | 73 74 61 6c 74 20 69 73 | have ge|stalt is|
|00001d70| 0d 2d 2d 20 74 6f 6f 20 | 65 61 72 6c 79 20 74 6f |.-- too |early to|
|00001d80| 20 72 75 6e 20 4b 69 6d | 53 74 61 63 6b 73 20 26 | run Kim|Stacks &|
|00001d90| 20 43 44 2d 52 4f 4d 20 | 73 61 66 65 6c 79 20 61 | CD-ROM |safely a|
|00001da0| 6e 64 20 77 65 20 72 65 | 74 75 72 6e 20 46 41 4c |nd we re|turn FAL|
|00001db0| 53 45 2e 0d 2d 2d 20 57 | 65 20 70 72 65 66 65 72 |SE..-- W|e prefer|
|00001dc0| 20 74 68 65 20 75 73 65 | 72 20 74 6f 20 68 61 76 | the use|r to hav|
|00001dd0| 65 20 61 20 63 65 72 74 | 61 69 6e 20 6c 65 76 65 |e a cert|ain leve|
|00001de0| 6c 20 6f 66 20 67 65 73 | 74 61 6c 74 20 63 61 70 |l of ges|talt cap|
|00001df0| 61 62 6c 65 0d 2d 2d 20 | 53 79 73 74 65 6d 2c 20 |able.-- |System, |
|00001e00| 61 6e 64 20 73 6f 20 77 | 65 20 77 61 72 6e 20 61 |and so w|e warn a|
|00001e10| 63 63 6f 72 64 69 6e 67 | 6c 79 2e 0d 2d 2d 2d 2d |ccording|ly..----|
|00001e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e30| 2d 2d 2d 2d 2d 2d 0d 69 | 66 20 68 61 76 65 47 65 |------.i|f haveGe|
|00001e40| 73 74 61 6c 74 28 29 20 | 3d 20 54 52 55 45 20 74 |stalt() |= TRUE t|
|00001e50| 68 65 6e 0d 70 75 74 20 | 67 65 73 74 61 6c 74 53 |hen.put |gestaltS|
|00001e60| 79 73 56 65 72 73 28 29 | 20 69 6e 74 6f 20 74 68 |ysVers()| into th|
|00001e70| 65 53 79 73 0d 69 66 20 | 74 68 65 53 79 73 20 3e |eSys.if |theSys >|
|00001e80| 3d 20 70 72 65 66 53 79 | 73 20 74 68 65 6e 0d 72 |= prefSy|s then.r|
|00001e90| 65 74 75 72 6e 20 54 52 | 55 45 0d 65 6c 73 65 0d |eturn TR|UE.else.|
|00001ea0| 70 75 74 20 22 53 79 73 | 74 65 6d 22 20 26 26 20 |put "Sys|tem" && |
|00001eb0| 74 68 65 53 79 73 20 26 | 26 20 22 68 61 73 20 6e |theSys &|& "has n|
|00001ec0| 6f 74 20 62 65 65 6e 20 | 66 75 6c 6c 79 20 74 65 |ot been |fully te|
|00001ed0| 73 74 65 64 2e 22 20 c2 | 0d 26 26 20 22 77 69 74 |sted." .|.&& "wit|
|00001ee0| 68 20 4b 69 6d 53 74 61 | 63 6b 73 20 26 20 43 44 |h KimSta|cks & CD|
|00001ef0| 2d 52 4f 4d 2e 20 59 6f | 75 20 6d 61 79 20 63 6f |-ROM. Yo|u may co|
|00001f00| 6e 74 69 6e 75 65 2c 20 | 62 75 74 20 77 65 22 20 |ntinue, |but we" |
|00001f10| c2 0d 26 26 20 22 63 61 | 6e 6e 6f 74 20 67 75 61 |..&& "ca|nnot gua|
|00001f20| 72 61 6e 74 65 65 20 61 | 6c 6c 20 66 75 6e 63 74 |rantee a|ll funct|
|00001f30| 69 6f 6e 73 20 77 69 6c | 6c 20 62 65 68 61 76 65 |ions wil|l behave|
|00001f40| 20 61 73 20 74 68 65 79 | 22 20 c2 0d 26 26 20 22 | as they|" ..&& "|
|00001f50| 73 68 6f 75 6c 64 2e 20 | 59 6f 75 20 4d 55 53 54 |should. |You MUST|
|00001f60| 20 69 6e 20 61 6e 79 20 | 63 61 73 65 20 72 75 6e | in any |case run|
|00001f70| 20 53 79 73 74 65 6d 22 | 20 26 26 20 74 68 65 53 | System"| && theS|
|00001f80| 79 73 20 c2 0d 26 26 20 | 22 75 6e 64 65 72 20 4d |ys ..&& |"under M|
|00001f90| 75 6c 74 69 46 69 6e 64 | 65 72 2e 20 44 6f 20 79 |ultiFind|er. Do y|
|00001fa0| 6f 75 20 77 61 6e 74 20 | 74 6f 20 63 6f 6e 74 69 |ou want |to conti|
|00001fb0| 6e 75 65 3f 22 20 69 6e | 74 6f 20 70 72 6f 6d 70 |nue?" in|to promp|
|00001fc0| 74 0d 72 65 74 75 72 6e | 20 63 6f 6e 66 69 72 6d |t.return| confirm|
|00001fd0| 28 70 72 6f 6d 70 74 2c | 22 59 65 73 22 2c 22 4e |(prompt,|"Yes","N|
|00001fe0| 6f 22 29 20 3d 20 22 59 | 65 73 22 0d 65 6e 64 20 |o") = "Y|es".end |
|00001ff0| 69 66 0d 65 6c 73 65 0d | 72 65 74 75 72 6e 20 46 |if.else.|return F|
|00002000| 41 4c 53 45 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |ALSE.end| if.end |
|00002010| 63 68 65 63 6b 53 79 73 | 74 65 6d 0d 0d 2d 2d a5 |checkSys|tem..--.|
|00002020| 0d 66 75 6e 63 74 69 6f | 6e 20 63 68 65 63 6b 51 |.functio|n checkQ|
|00002030| 44 20 70 72 65 66 51 44 | 0d 2d 2d 2d 2d 2d 2d 2d |D prefQD|.-------|
|00002040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 2d |--------|------.-|
|00002050| 2d 20 54 68 65 20 75 73 | 65 72 20 6d 75 73 74 20 |- The us|er must |
|00002060| 62 65 20 75 73 69 6e 67 | 20 33 32 2d 62 69 74 20 |be using| 32-bit |
|00002070| 51 75 69 63 6b 44 72 61 | 77 2e 0d 2d 2d 2d 2d 2d |QuickDra|w..-----|
|00002080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002090| 0d 69 66 20 68 61 76 65 | 47 65 73 74 61 6c 74 28 |.if have|Gestalt(|
|000020a0| 29 20 3d 20 54 52 55 45 | 20 74 68 65 6e 0d 70 75 |) = TRUE| then.pu|
|000020b0| 74 20 67 65 73 74 61 6c | 74 51 44 56 65 72 73 28 |t gestal|tQDVers(|
|000020c0| 29 20 69 6e 74 6f 20 74 | 68 65 53 79 73 0d 69 66 |) into t|heSys.if|
|000020d0| 20 74 68 65 53 79 73 20 | 63 6f 6e 74 61 69 6e 73 | theSys |contains|
|000020e0| 20 70 72 65 66 51 44 20 | 74 68 65 6e 0d 72 65 74 | prefQD |then.ret|
|000020f0| 75 72 6e 20 54 52 55 45 | 0d 65 6e 64 20 69 66 0d |urn TRUE|.end if.|
|00002100| 65 6e 64 20 69 66 0d 72 | 65 74 75 72 6e 20 46 41 |end if.r|eturn FA|
|00002110| 4c 53 45 0d 65 6e 64 20 | 63 68 65 63 6b 51 44 0d |LSE.end |checkQD.|
|00002120| 0d 2d 2d a5 0d 66 75 6e | 63 74 69 6f 6e 20 63 68 |.--..fun|ction ch|
|00002130| 65 63 6b 4e 6f 41 55 58 | 0d 2d 2d 2d 2d 2d 2d 2d |eckNoAUX|.-------|
|00002140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 2d 2d 20 54 68 |--------|--.-- Th|
|00002150| 65 20 75 73 65 72 20 6d | 75 73 74 20 6e 6f 74 20 |e user m|ust not |
|00002160| 62 65 20 75 73 69 6e 67 | 20 41 55 2f 58 2e 0d 2d |be using| AU/X..-|
|00002170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002180| 0d 69 66 20 68 61 76 65 | 47 65 73 74 61 6c 74 28 |.if have|Gestalt(|
|00002190| 29 20 3d 20 54 52 55 45 | 20 74 68 65 6e 0d 72 65 |) = TRUE| then.re|
|000021a0| 74 75 72 6e 20 67 65 73 | 74 61 6c 74 41 55 58 28 |turn ges|taltAUX(|
|000021b0| 29 20 3d 20 22 4e 6f 22 | 0d 65 6e 64 20 69 66 0d |) = "No"|.end if.|
|000021c0| 72 65 74 75 72 6e 20 46 | 41 4c 53 45 0d 65 6e 64 |return F|ALSE.end|
|000021d0| 20 63 68 65 63 6b 4e 6f | 41 55 58 0d 0d 2d 2d a5 | checkNo|AUX..--.|
|000021e0| 0d 6f 6e 20 64 65 66 69 | 6e 65 49 6e 64 65 78 53 |.on defi|neIndexS|
|000021f0| 74 61 63 6b 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |tack.---|--------|
|00002200| 2d 2d 2d 2d 2d 2d 0d 2d | 2d 20 44 65 74 65 72 6d |------.-|- Determ|
|00002210| 69 6e 65 20 28 6e 6f 74 | 20 22 64 65 66 69 6e 65 |ine (not| "define|
|00002220| 22 29 20 74 68 65 20 6c | 6f 63 61 74 69 6f 6e 20 |") the l|ocation |
|00002230| 6f 66 20 74 68 69 73 20 | 73 74 61 63 6b 20 6f 6e |of this |stack on|
|00002240| 20 74 68 65 20 75 73 65 | 72 27 73 0d 2d 2d 20 48 | the use|r's.-- H|
|00002250| 44 2e 20 57 65 20 77 69 | 6c 6c 20 68 61 76 65 20 |D. We wi|ll have |
|00002260| 61 6c 72 65 61 64 79 20 | 68 61 76 65 20 64 65 74 |already |have det|
|00002270| 65 72 6d 69 6e 65 64 20 | 77 68 65 74 68 65 72 20 |ermined |whether |
|00002280| 6f 72 20 6e 6f 74 20 77 | 65 20 61 72 65 0d 2d 2d |or not w|e are.--|
|00002290| 20 72 75 6e 6e 69 6e 67 | 20 66 72 6f 6d 20 74 68 | running| from th|
|000022a0| 65 20 48 44 20 73 6f 20 | 74 68 69 73 20 69 73 20 |e HD so |this is |
|000022b0| 6e 6f 74 20 61 6e 20 69 | 73 73 75 65 20 68 65 72 |not an i|ssue her|
|000022c0| 65 2e 20 54 68 65 20 75 | 73 65 72 20 63 61 6e 20 |e. The u|ser can |
|000022d0| 70 75 74 0d 2d 2d 20 74 | 68 69 73 20 73 74 61 63 |put.-- t|his stac|
|000022e0| 6b 20 77 68 65 72 65 20 | 74 68 65 79 20 6c 69 6b |k where |they lik|
|000022f0| 65 2e 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |e..-----|--------|
|00002300| 2d 2d 2d 2d 0d 67 6c 6f | 62 61 6c 20 48 44 5f 50 |----.glo|bal HD_P|
|00002310| 41 54 48 0d 2d 2d 0d 67 | 6c 6f 62 61 6c 20 49 4e |ATH.--.g|lobal IN|
|00002320| 44 45 58 5f 53 54 41 43 | 4b 20 2d 2d 20 70 61 74 |DEX_STAC|K -- pat|
|00002330| 68 20 74 6f 20 74 68 65 | 20 49 6e 64 65 78 20 73 |h to the| Index s|
|00002340| 74 61 63 6b 0d 67 6c 6f | 62 61 6c 20 4d 41 49 4e |tack.glo|bal MAIN|
|00002350| 5f 49 4e 44 45 58 20 20 | 2d 2d 20 74 68 65 20 4d |_INDEX  |-- the M|
|00002360| 61 69 6e 20 49 6e 64 65 | 78 20 63 61 72 64 0d 67 |ain Inde|x card.g|
|00002370| 6c 6f 62 61 6c 20 45 44 | 49 54 5f 49 4e 44 45 58 |lobal ED|IT_INDEX|
|00002380| 20 20 2d 2d 20 74 68 65 | 20 45 64 69 74 6f 72 69 |  -- the| Editori|
|00002390| 61 6c 20 63 61 72 64 20 | 28 6e 6f 77 20 63 61 6c |al card |(now cal|
|000023a0| 6c 65 64 20 22 41 72 74 | 69 63 6c 65 73 20 31 22 |led "Art|icles 1"|
|000023b0| 29 0d 67 6c 6f 62 61 6c | 20 50 52 4f 44 5f 49 4e |).global| PROD_IN|
|000023c0| 44 45 58 20 20 2d 2d 20 | 74 68 65 20 50 72 6f 64 |DEX  -- |the Prod|
|000023d0| 75 63 74 73 20 63 61 72 | 64 0d 67 6c 6f 62 61 6c |ucts car|d.global|
|000023e0| 20 46 45 41 54 5f 49 4e | 44 45 58 20 20 2d 2d 20 | FEAT_IN|DEX  -- |
|000023f0| 74 68 65 20 46 65 61 74 | 75 72 65 73 20 63 61 72 |the Feat|ures car|
|00002400| 64 20 28 6e 6f 77 20 63 | 61 6c 6c 65 64 20 22 41 |d (now c|alled "A|
|00002410| 72 74 69 63 6c 65 73 20 | 32 22 29 0d 67 6c 6f 62 |rticles |2").glob|
|00002420| 61 6c 20 47 41 4c 4c 5f | 49 4e 44 45 58 20 20 2d |al GALL_|INDEX  -|
|00002430| 2d 20 74 68 65 20 54 68 | 65 20 47 61 6c 6c 65 72 |- the Th|e Galler|
|00002440| 79 20 63 61 72 64 0d 67 | 6c 6f 62 61 6c 20 44 45 |y card.g|lobal DE|
|00002450| 4d 4f 5f 49 4e 44 45 58 | 20 20 2d 2d 20 74 68 65 |MO_INDEX|  -- the|
|00002460| 20 44 65 6d 6f 6e 73 74 | 72 61 74 69 6f 6e 73 20 | Demonst|rations |
|00002470| 63 61 72 64 0d 67 6c 6f | 62 61 6c 20 43 41 54 47 |card.glo|bal CATG|
|00002480| 5f 49 4e 44 45 58 20 20 | 2d 2d 20 74 68 65 20 43 |_INDEX  |-- the C|
|00002490| 61 74 65 67 6f 72 69 65 | 73 20 63 61 72 64 0d 67 |ategorie|s card.g|
|000024a0| 6c 6f 62 61 6c 20 4d 45 | 44 49 5f 49 4e 44 45 58 |lobal ME|DI_INDEX|
|000024b0| 20 20 2d 2d 20 74 68 65 | 20 4d 65 64 69 61 20 63 |  -- the| Media c|
|000024c0| 61 72 64 0d 67 6c 6f 62 | 61 6c 20 49 4e 44 45 58 |ard.glob|al INDEX|
|000024d0| 5f 49 4e 44 45 58 20 2d | 2d 20 6c 6f 6e 67 20 6e |_INDEX -|- long n|
|000024e0| 61 6d 65 20 6f 66 20 61 | 6e 20 49 6e 64 65 78 20 |ame of a|n Index |
|000024f0| 63 61 72 64 20 74 6f 20 | 22 70 6f 70 22 20 62 61 |card to |"pop" ba|
|00002500| 63 6b 20 74 6f 0d 2d 2d | 0d 70 75 74 20 48 44 5f |ck to.--|.put HD_|
|00002510| 50 41 54 48 20 26 20 22 | 49 6e 64 65 78 22 20 69 |PATH & "|Index" i|
|00002520| 6e 74 6f 20 49 4e 44 45 | 58 5f 53 54 41 43 4b 0d |nto INDE|X_STACK.|
|00002530| 70 75 74 20 65 6d 70 74 | 79 20 69 6e 74 6f 20 49 |put empt|y into I|
|00002540| 4e 44 45 58 5f 49 4e 44 | 45 58 0d 70 75 74 20 22 |NDEX_IND|EX.put "|
|00002550| 4d 61 69 6e 20 49 6e 64 | 65 78 22 20 69 6e 74 6f |Main Ind|ex" into|
|00002560| 20 4d 41 49 4e 5f 49 4e | 44 45 58 0d 70 75 74 20 | MAIN_IN|DEX.put |
|00002570| 22 41 72 74 69 63 6c 65 | 73 20 31 22 20 69 6e 74 |"Article|s 1" int|
|00002580| 6f 20 45 44 49 54 5f 49 | 4e 44 45 58 0d 70 75 74 |o EDIT_I|NDEX.put|
|00002590| 20 22 41 72 74 69 63 6c | 65 73 20 32 22 20 69 6e | "Articl|es 2" in|
|000025a0| 74 6f 20 46 45 41 54 5f | 49 4e 44 45 58 0d 70 75 |to FEAT_|INDEX.pu|
|000025b0| 74 20 22 50 72 6f 64 75 | 63 74 73 22 20 69 6e 74 |t "Produ|cts" int|
|000025c0| 6f 20 50 52 4f 44 5f 49 | 4e 44 45 58 0d 70 75 74 |o PROD_I|NDEX.put|
|000025d0| 20 22 54 68 65 20 47 61 | 6c 6c 65 72 79 22 20 69 | "The Ga|llery" i|
|000025e0| 6e 74 6f 20 47 41 4c 4c | 5f 49 4e 44 45 58 0d 70 |nto GALL|_INDEX.p|
|000025f0| 75 74 20 22 44 65 6d 6f | 6e 73 74 72 61 74 69 6f |ut "Demo|nstratio|
|00002600| 6e 73 22 20 69 6e 74 6f | 20 44 45 4d 4f 5f 49 4e |ns" into| DEMO_IN|
|00002610| 44 45 58 0d 70 75 74 20 | 22 43 61 74 65 67 6f 72 |DEX.put |"Categor|
|00002620| 69 65 73 22 20 69 6e 74 | 6f 20 43 41 54 47 5f 49 |ies" int|o CATG_I|
|00002630| 4e 44 45 58 0d 70 75 74 | 20 22 4d 65 64 69 61 22 |NDEX.put| "Media"|
|00002640| 20 69 6e 74 6f 20 4d 45 | 44 49 5f 49 4e 44 45 58 | into ME|DI_INDEX|
|00002650| 0d 65 6e 64 20 64 65 66 | 69 6e 65 49 6e 64 65 78 |.end def|ineIndex|
|00002660| 53 74 61 63 6b 0d 0d 2d | 2d a5 0d 6f 6e 20 64 65 |Stack..-|-..on de|
|00002670| 66 69 6e 65 47 61 6c 6c | 65 72 79 46 6f 6c 64 65 |fineGall|eryFolde|
|00002680| 72 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |r.------|--------|
|00002690| 2d 2d 2d 2d 2d 2d 0d 2d | 2d 20 44 65 66 69 6e 65 |------.-|- Define|
|000026a0| 73 20 74 68 65 20 6c 6f | 63 61 74 69 6f 6e 20 6f |s the lo|cation o|
|000026b0| 66 20 54 68 65 20 47 61 | 6c 6c 65 72 79 20 66 6f |f The Ga|llery fo|
|000026c0| 6c 64 65 72 20 61 6e 64 | 20 69 74 73 20 63 6f 6e |lder and| its con|
|000026d0| 74 65 6e 74 73 2e 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |tents..-|--------|
|000026e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 67 6c 6f 62 |--------|---.glob|
|000026f0| 61 6c 20 43 44 5f 50 41 | 54 48 0d 2d 2d 0d 67 6c |al CD_PA|TH.--.gl|
|00002700| 6f 62 61 6c 20 47 41 4c | 4c 5f 46 4f 4c 44 45 52 |obal GAL|L_FOLDER|
|00002710| 20 20 20 2d 2d 20 66 6f | 6c 64 65 72 20 63 6f 6e |   -- fo|lder con|
|00002720| 74 61 69 6e 69 6e 67 20 | 54 68 65 20 47 61 6c 6c |taining |The Gall|
|00002730| 65 72 79 0d 67 6c 6f 62 | 61 6c 20 49 4e 54 52 4f |ery.glob|al INTRO|
|00002740| 5f 53 54 41 43 4b 20 20 | 20 2d 2d 20 74 68 65 20 |_STACK  | -- the |
|00002750| 49 6e 74 72 6f 64 75 63 | 69 6e 67 c9 20 73 74 61 |Introduc|ing. sta|
|00002760| 63 6b 0d 67 6c 6f 62 61 | 6c 20 46 41 4d 49 4c 59 |ck.globa|l FAMILY|
|00002770| 5f 53 54 41 43 4b 20 20 | 2d 2d 20 74 68 65 20 46 |_STACK  |-- the F|
|00002780| 61 6d 69 6c 79 20 41 6c | 62 75 6d 20 73 74 61 63 |amily Al|bum stac|
|00002790| 6b 0d 67 6c 6f 62 61 6c | 20 57 41 54 45 52 5f 53 |k.global| WATER_S|
|000027a0| 54 41 43 4b 20 20 20 2d | 2d 20 74 68 65 20 57 61 |TACK   -|- the Wa|
|000027b0| 74 65 72 63 6f 6c 6f 75 | 72 73 20 73 74 61 63 6b |tercolou|rs stack|
|000027c0| 0d 67 6c 6f 62 61 6c 20 | 56 49 53 49 4f 4e 5f 53 |.global |VISION_S|
|000027d0| 54 41 43 4b 20 20 2d 2d | 20 74 68 65 20 56 69 73 |TACK  --| the Vis|
|000027e0| 69 6f 6e 62 61 6e 6b 20 | 73 74 61 63 6b 0d 67 6c |ionbank |stack.gl|
|000027f0| 6f 62 61 6c 20 4c 41 59 | 4f 55 54 5f 53 54 41 43 |obal LAY|OUT_STAC|
|00002800| 4b 20 20 2d 2d 20 74 68 | 65 20 50 61 67 65 20 4c |K  -- th|e Page L|
|00002810| 61 79 6f 75 74 20 73 74 | 61 63 6b 0d 67 6c 6f 62 |ayout st|ack.glob|
|00002820| 61 6c 20 43 41 52 54 4f | 4f 4e 5f 53 54 41 43 4b |al CARTO|ON_STACK|
|00002830| 20 2d 2d 20 74 68 65 20 | 43 61 72 74 6f 6f 6e 73 | -- the |Cartoons|
|00002840| 20 73 74 61 63 6b 0d 2d | 2d 0d 70 75 74 20 43 44 | stack.-|-.put CD|
|00002850| 5f 50 41 54 48 20 26 20 | 22 54 68 65 20 47 61 6c |_PATH & |"The Gal|
|00002860| 6c 65 72 79 3a 22 20 69 | 6e 74 6f 20 47 41 4c 4c |lery:" i|nto GALL|
|00002870| 5f 46 4f 4c 44 45 52 0d | 70 75 74 20 47 41 4c 4c |_FOLDER.|put GALL|
|00002880| 5f 46 4f 4c 44 45 52 20 | 26 20 22 49 6e 74 72 6f |_FOLDER |& "Intro|
|00002890| 64 75 63 69 6e 67 c9 3a | 49 6e 74 72 6f 64 75 63 |ducing.:|Introduc|
|000028a0| 69 6e 67 c9 22 20 69 6e | 74 6f 20 49 4e 54 52 4f |ing." in|to INTRO|
|000028b0| 5f 53 54 41 43 4b 0d 70 | 75 74 20 47 41 4c 4c 5f |_STACK.p|ut GALL_|
|000028c0| 46 4f 4c 44 45 52 20 26 | 20 22 46 61 6d 69 6c 79 |FOLDER &| "Family|
|000028d0| 20 41 6c 62 75 6d 3a 46 | 61 6d 69 6c 79 20 41 6c | Album:F|amily Al|
|000028e0| 62 75 6d 22 20 69 6e 74 | 6f 20 46 41 4d 49 4c 59 |bum" int|o FAMILY|
|000028f0| 5f 53 54 41 43 4b 0d 70 | 75 74 20 47 41 4c 4c 5f |_STACK.p|ut GALL_|
|00002900| 46 4f 4c 44 45 52 20 26 | 20 22 57 61 74 65 72 63 |FOLDER &| "Waterc|
|00002910| 6f 6c 6f 75 72 73 3a 57 | 61 74 65 72 63 6f 6c 6f |olours:W|atercolo|
|00002920| 75 72 73 22 20 69 6e 74 | 6f 20 57 41 54 45 52 5f |urs" int|o WATER_|
|00002930| 53 54 41 43 4b 0d 70 75 | 74 20 47 41 4c 4c 5f 46 |STACK.pu|t GALL_F|
|00002940| 4f 4c 44 45 52 20 26 20 | 22 56 69 73 69 6f 6e 62 |OLDER & |"Visionb|
|00002950| 61 6e 6b 3a 56 69 73 69 | 6f 6e 62 61 6e 6b 22 20 |ank:Visi|onbank" |
|00002960| 69 6e 74 6f 20 56 49 53 | 49 4f 4e 5f 53 54 41 43 |into VIS|ION_STAC|
|00002970| 4b 0d 70 75 74 20 47 41 | 4c 4c 5f 46 4f 4c 44 45 |K.put GA|LL_FOLDE|
|00002980| 52 20 26 20 22 50 61 67 | 65 20 4c 61 79 6f 75 74 |R & "Pag|e Layout|
|00002990| 3a 50 61 67 65 20 4c 61 | 79 6f 75 74 22 20 69 6e |:Page La|yout" in|
|000029a0| 74 6f 20 4c 41 59 4f 55 | 54 5f 53 54 41 43 4b 0d |to LAYOU|T_STACK.|
|000029b0| 70 75 74 20 47 41 4c 4c | 5f 46 4f 4c 44 45 52 20 |put GALL|_FOLDER |
|000029c0| 26 20 22 43 61 72 74 6f | 6f 6e 73 3a 43 61 72 74 |& "Carto|ons:Cart|
|000029d0| 6f 6f 6e 73 22 20 69 6e | 74 6f 20 43 41 52 54 4f |oons" in|to CARTO|
|000029e0| 4f 4e 5f 53 54 41 43 4b | 0d 65 6e 64 20 64 65 66 |ON_STACK|.end def|
|000029f0| 69 6e 65 47 61 6c 6c 65 | 72 79 46 6f 6c 64 65 72 |ineGalle|ryFolder|
|00002a00| 0d 0d 2d 2d a5 0d 6f 6e | 20 64 65 66 69 6e 65 44 |..--..on| defineD|
|00002a10| 65 6d 6f 46 6f 6c 64 65 | 72 0d 2d 2d 2d 2d 2d 2d |emoFolde|r.------|
|00002a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 2d 2d 20 44 |--------|---.-- D|
|00002a30| 65 66 69 6e 65 73 20 74 | 68 65 20 6c 6f 63 61 74 |efines t|he locat|
|00002a40| 69 6f 6e 20 6f 66 20 74 | 68 65 20 44 65 6d 6f 6e |ion of t|he Demon|
|00002a50| 73 74 72 61 74 69 6f 6e | 73 20 66 6f 6c 64 65 72 |stration|s folder|
|00002a60| 2e 20 57 65 20 75 73 65 | 20 74 68 69 73 0d 2d 2d |. We use| this.--|
|00002a70| 20 74 6f 20 73 74 6f 72 | 65 20 74 68 65 20 64 65 | to stor|e the de|
|00002a80| 6d 6f 20 76 65 72 73 69 | 6f 6e 73 20 6f 66 20 63 |mo versi|ons of c|
|00002a90| 61 74 61 6c 6f 67 75 65 | 20 70 72 6f 64 75 63 74 |atalogue| product|
|00002aa0| 73 20 2d 20 73 75 72 70 | 72 69 73 65 64 3f 21 0d |s - surp|rised?!.|
|00002ab0| 2d 2d 20 57 65 20 61 6c | 73 6f 20 75 73 65 20 69 |-- We al|so use i|
|00002ac0| 74 20 74 6f 20 73 74 6f | 72 65 20 61 20 66 6f 6c |t to sto|re a fol|
|00002ad0| 64 65 72 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 73 |der cont|aining s|
|00002ae0| 75 70 70 6f 72 74 20 74 | 6f 6f 6c 73 20 74 68 61 |upport t|ools tha|
|00002af0| 74 0d 2d 2d 20 77 65 20 | 6d 61 79 20 6f 72 20 6d |t.-- we |may or m|
|00002b00| 61 79 20 6e 6f 74 20 6e | 65 65 64 20 74 6f 20 75 |ay not n|eed to u|
|00002b10| 73 65 20 66 72 6f 6d 20 | 6f 6e 65 20 72 75 6e 20 |se from |one run |
|00002b20| 74 6f 20 74 68 65 20 6e | 65 78 74 2e 0d 2d 2d 2d |to the n|ext..---|
|00002b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 67 |--------|------.g|
|00002b40| 6c 6f 62 61 6c 20 43 44 | 5f 50 41 54 48 0d 2d 2d |lobal CD|_PATH.--|
|00002b50| 0d 67 6c 6f 62 61 6c 20 | 44 45 4d 4f 5f 46 4f 4c |.global |DEMO_FOL|
|00002b60| 44 45 52 20 2d 2d 20 66 | 6f 6c 64 65 72 20 63 6f |DER -- f|older co|
|00002b70| 6e 74 61 69 6e 69 6e 67 | 20 44 65 6d 6f 6e 73 74 |ntaining| Demonst|
|00002b80| 72 61 74 69 6f 6e 73 20 | 74 6f 20 62 65 20 75 73 |rations |to be us|
|00002b90| 65 64 0d 67 6c 6f 62 61 | 6c 20 53 55 50 50 5f 46 |ed.globa|l SUPP_F|
|00002ba0| 4f 4c 44 45 52 20 2d 2d | 20 66 6f 6c 64 65 72 20 |OLDER --| folder |
|00002bb0| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 73 75 70 70 6f |containi|ng suppo|
|00002bc0| 72 74 20 74 6f 6f 6c 73 | 2c 20 65 74 63 2e 0d 67 |rt tools|, etc..g|
|00002bd0| 6c 6f 62 61 6c 20 48 45 | 4c 50 5f 53 54 41 43 4b |lobal HE|LP_STACK|
|00002be0| 20 20 2d 2d 20 73 74 61 | 63 6b 20 63 6f 6e 74 61 |  -- sta|ck conta|
|00002bf0| 69 6e 69 6e 67 20 68 65 | 6c 70 0d 2d 2d 0d 70 75 |ining he|lp.--.pu|
|00002c00| 74 20 43 44 5f 50 41 54 | 48 20 26 20 22 44 65 6d |t CD_PAT|H & "Dem|
|00002c10| 6f 6e 73 74 72 61 74 69 | 6f 6e 73 3a 22 20 69 6e |onstrati|ons:" in|
|00002c20| 74 6f 20 44 45 4d 4f 5f | 46 4f 4c 44 45 52 0d 70 |to DEMO_|FOLDER.p|
|00002c30| 75 74 20 43 44 5f 50 41 | 54 48 20 26 20 22 a5 53 |ut CD_PA|TH & ".S|
|00002c40| 75 70 70 6f 72 74 a5 3a | 22 20 69 6e 74 6f 20 53 |upport.:|" into S|
|00002c50| 55 50 50 4f 52 54 5f 46 | 4f 4c 44 45 52 0d 70 75 |UPPORT_F|OLDER.pu|
|00002c60| 74 20 53 55 50 50 4f 52 | 54 5f 46 4f 4c 44 45 52 |t SUPPOR|T_FOLDER|
|00002c70| 20 26 20 22 4b 69 6d 53 | 74 61 63 6b 73 20 48 65 | & "KimS|tacks He|
|00002c80| 6c 70 22 20 69 6e 74 6f | 20 48 45 4c 50 5f 53 54 |lp" into| HELP_ST|
|00002c90| 41 43 4b 0d 65 6e 64 20 | 64 65 66 69 6e 65 44 65 |ACK.end |defineDe|
|00002ca0| 6d 6f 46 6f 6c 64 65 72 | 0d 0d 2d 2d a5 0d 6f 6e |moFolder|..--..on|
|00002cb0| 20 64 65 66 69 6e 65 50 | 72 6f 64 75 63 74 46 6f | defineP|roductFo|
|00002cc0| 6c 64 65 72 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |lder.---|--------|
|00002cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 2d 2d 20 44 65 66 |--------|-.-- Def|
|00002ce0| 69 6e 65 73 20 74 68 65 | 20 6c 6f 63 61 74 69 6f |ines the| locatio|
|00002cf0| 6e 20 6f 66 20 74 68 65 | 20 50 72 6f 64 75 63 74 |n of the| Product|
|00002d00| 73 20 73 74 61 63 6b 20 | 6f 6e 20 74 68 65 20 75 |s stack |on the u|
|00002d10| 73 65 72 27 73 20 68 61 | 72 64 20 64 69 73 63 0d |ser's ha|rd disc.|
|00002d20| 2d 2d 20 61 6e 64 20 63 | 6f 6e 66 69 72 6d 73 20 |-- and c|onfirms |
|00002d30| 69 74 73 20 65 78 69 73 | 74 65 6e 63 65 20 74 68 |its exis|tence th|
|00002d40| 65 72 65 2e 20 49 66 20 | 69 74 20 69 73 20 6e 6f |ere. If |it is no|
|00002d50| 74 20 70 72 65 73 65 6e | 74 2c 20 61 6e 20 65 72 |t presen|t, an er|
|00002d60| 72 6f 72 0d 2d 2d 20 69 | 73 20 72 65 70 6f 72 74 |ror.-- i|s report|
|00002d70| 65 64 20 61 6e 64 20 74 | 68 65 20 75 73 65 72 20 |ed and t|he user |
|00002d80| 69 73 20 67 69 76 65 6e | 20 74 68 65 20 6f 70 74 |is given| the opt|
|00002d90| 69 6f 6e 20 74 6f 20 66 | 69 6e 64 20 69 74 2c 20 |ion to f|ind it, |
|00002da0| 6f 72 20 28 72 65 2d 29 | 0d 2d 2d 20 69 6e 73 74 |or (re-)|.-- inst|
|00002db0| 61 6c 6c 20 74 68 65 20 | 4b 69 6d 53 74 61 63 6b |all the |KimStack|
|00002dc0| 73 20 73 75 69 74 65 2e | 20 49 6e 20 74 68 65 20 |s suite.| In the |
|00002dd0| 6c 61 74 74 65 72 20 63 | 61 73 65 2c 20 77 65 20 |latter c|ase, we |
|00002de0| 71 75 69 74 20 66 72 6f | 6d 20 74 68 69 73 0d 2d |quit fro|m this.-|
|00002df0| 2d 20 73 74 61 63 6b 2e | 20 49 66 20 74 68 65 20 |- stack.| If the |
|00002e00| 50 72 6f 64 75 63 74 73 | 20 73 74 61 63 6b 20 69 |Products| stack i|
|00002e10| 73 20 69 6e 20 73 69 74 | 75 2c 20 74 68 65 6e 20 |s in sit|u, then |
|00002e20| 77 65 20 64 65 66 69 6e | 65 20 74 68 65 0d 2d 2d |we defin|e the.--|
|00002e30| 20 6c 6f 63 61 74 69 6f | 6e 20 6f 66 20 74 68 65 | locatio|n of the|
|00002e40| 20 76 61 72 69 6f 75 73 | 20 66 6f 6c 64 65 72 20 | various| folder |
|00002e50| 63 6f 6e 74 61 69 6e 69 | 6e 67 20 74 68 65 20 69 |containi|ng the i|
|00002e60| 6d 61 67 65 73 20 74 68 | 61 74 20 69 74 20 6d 75 |mages th|at it mu|
|00002e70| 73 74 0d 2d 2d 20 75 73 | 65 2e 20 54 68 65 73 65 |st.-- us|e. These|
|00002e80| 20 61 72 65 20 61 6c 77 | 61 79 73 20 6f 6e 20 74 | are alw|ays on t|
|00002e90| 68 65 20 43 44 2d 52 4f | 4d 2e 0d 2d 2d 2d 2d 2d |he CD-RO|M..-----|
|00002ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00002eb0| 67 6c 6f 62 61 6c 20 43 | 44 5f 50 41 54 48 0d 67 |global C|D_PATH.g|
|00002ec0| 6c 6f 62 61 6c 20 48 44 | 5f 50 41 54 48 0d 2d 2d |lobal HD|_PATH.--|
|00002ed0| 0d 67 6c 6f 62 61 6c 20 | 50 52 4f 44 55 43 54 5f |.global |PRODUCT_|
|00002ee0| 46 4f 4c 44 45 52 20 2d | 2d 20 74 68 65 20 50 72 |FOLDER -|- the Pr|
|00002ef0| 6f 64 75 63 74 73 20 66 | 6f 6c 64 65 72 20 6f 6e |oducts f|older on|
|00002f00| 20 74 68 65 20 43 44 0d | 67 6c 6f 62 61 6c 20 44 | the CD.|global D|
|00002f10| 45 4d 4f 5f 46 4f 4c 44 | 45 52 20 20 20 20 2d 2d |EMO_FOLD|ER    --|
|00002f20| 20 74 68 65 20 44 65 6d | 6f 6e 73 74 72 61 74 69 | the Dem|onstrati|
|00002f30| 6f 6e 73 20 66 6f 6c 64 | 65 72 20 6f 6e 20 74 68 |ons fold|er on th|
|00002f40| 65 20 43 44 0d 67 6c 6f | 62 61 6c 20 50 52 4f 44 |e CD.glo|bal PROD|
|00002f50| 55 43 54 5f 53 54 41 43 | 4b 20 20 2d 2d 20 74 68 |UCT_STAC|K  -- th|
|00002f60| 65 20 50 72 6f 64 75 63 | 74 73 20 73 74 61 63 6b |e Produc|ts stack|
|00002f70| 20 6f 6e 20 61 6e 20 48 | 44 0d 2d 2d 0d 70 75 74 | on an H|D.--.put|
|00002f80| 20 48 44 5f 50 41 54 48 | 20 26 20 22 50 72 6f 64 | HD_PATH| & "Prod|
|00002f90| 75 63 74 73 22 20 69 6e | 74 6f 20 50 52 4f 44 55 |ucts" in|to PRODU|
|00002fa0| 43 54 5f 53 54 41 43 4b | 0d 69 66 20 66 69 6c 65 |CT_STACK|.if file|
|00002fb0| 53 74 61 74 75 73 28 50 | 52 4f 44 55 43 54 5f 53 |Status(P|RODUCT_S|
|00002fc0| 54 41 43 4b 29 20 3d 20 | 46 41 4c 53 45 20 74 68 |TACK) = |FALSE th|
|00002fd0| 65 6e 0d 70 75 74 20 66 | 69 6e 64 53 74 61 63 6b |en.put f|indStack|
|00002fe0| 28 22 50 72 6f 64 75 63 | 74 73 22 29 20 69 6e 74 |("Produc|ts") int|
|00002ff0| 6f 20 50 52 4f 44 55 43 | 54 5f 53 54 41 43 4b 0d |o PRODUC|T_STACK.|
|00003000| 69 66 20 50 52 4f 44 55 | 43 54 5f 53 54 41 43 4b |if PRODU|CT_STACK|
|00003010| 20 ad 20 65 6d 70 74 79 | 20 74 68 65 6e 0d 69 66 | . empty| then.if|
|00003020| 20 66 72 6f 6d 43 44 28 | 43 44 5f 50 41 54 48 20 | fromCD(|CD_PATH |
|00003030| 26 20 22 50 72 6f 64 75 | 63 74 73 22 2c 50 52 4f |& "Produ|cts",PRO|
|00003040| 44 55 43 54 5f 53 54 41 | 43 4b 29 20 3d 20 54 52 |DUCT_STA|CK) = TR|
|00003050| 55 45 20 74 68 65 6e 0d | 61 73 6b 55 73 65 72 54 |UE then.|askUserT|
|00003060| 6f 49 6e 73 74 61 6c 6c | 20 22 59 6f 75 20 63 61 |oInstall| "You ca|
|00003070| 6e 6e 6f 74 20 75 73 65 | 20 74 68 65 20 50 72 6f |nnot use| the Pro|
|00003080| 64 75 63 74 73 20 73 74 | 61 63 6b 20 6f 6e 20 74 |ducts st|ack on t|
|00003090| 68 65 20 43 44 2d 52 4f | 4d 21 22 0d 65 6e 64 20 |he CD-RO|M!".end |
|000030a0| 69 66 0d 65 6c 73 65 0d | 61 73 6b 55 73 65 72 54 |if.else.|askUserT|
|000030b0| 6f 49 6e 73 74 61 6c 6c | 20 22 49 20 63 61 6e 27 |oInstall| "I can'|
|000030c0| 74 20 6c 6f 63 61 74 65 | 20 61 6e 20 50 72 6f 64 |t locate| an Prod|
|000030d0| 75 63 74 73 20 73 74 61 | 63 6b 20 6f 6e 20 79 6f |ucts sta|ck on yo|
|000030e0| 75 72 20 68 61 72 64 20 | 64 69 73 63 21 22 0d 65 |ur hard |disc!".e|
|000030f0| 6e 64 20 69 66 0d 65 6e | 64 20 69 66 0d 2d 2d 20 |nd if.en|d if.-- |
|00003100| 69 66 20 77 65 20 67 65 | 74 20 68 65 72 65 2c 20 |if we ge|t here, |
|00003110| 73 6f 20 66 61 72 20 73 | 6f 20 67 6f 6f 64 21 0d |so far s|o good!.|
|00003120| 70 75 74 20 43 44 5f 50 | 41 54 48 20 26 20 22 50 |put CD_P|ATH & "P|
|00003130| 72 6f 64 75 63 74 73 3a | 22 20 69 6e 74 6f 20 50 |roducts:|" into P|
|00003140| 52 4f 44 55 43 54 5f 46 | 4f 4c 44 45 52 0d 70 75 |RODUCT_F|OLDER.pu|
|00003150| 74 20 50 52 4f 44 55 43 | 54 5f 46 4f 4c 44 45 52 |t PRODUC|T_FOLDER|
|00003160| 20 26 20 22 44 65 6d 6f | 6e 73 74 72 61 74 69 6f | & "Demo|nstratio|
|00003170| 6e 73 3a 22 20 69 6e 74 | 6f 20 44 45 4d 4f 5f 46 |ns:" int|o DEMO_F|
|00003180| 4f 4c 44 45 52 0d 65 6e | 64 20 64 65 66 69 6e 65 |OLDER.en|d define|
|00003190| 50 72 6f 64 75 63 74 46 | 6f 6c 64 65 72 0d 0d 2d |ProductF|older..-|
|000031a0| 2d a5 0d 6f 6e 20 64 65 | 66 69 6e 65 45 64 69 74 |-..on de|fineEdit|
|000031b0| 6f 72 46 6f 6c 64 65 72 | 0d 2d 2d 2d 2d 2d 2d 2d |orFolder|.-------|
|000031c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 2d 2d 20 |--------|----.-- |
|000031d0| 44 65 66 69 6e 65 73 20 | 74 68 65 20 6c 6f 63 61 |Defines |the loca|
|000031e0| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 4f 72 64 65 |tion of |the Orde|
|000031f0| 72 73 20 73 74 61 63 6b | 20 6f 6e 20 74 68 65 20 |rs stack| on the |
|00003200| 75 73 65 72 27 73 20 48 | 44 2e 20 49 66 20 69 74 |user's H|D. If it|
|00003210| 0d 2d 2d 20 69 73 20 6e | 6f 74 20 70 72 65 73 65 |.-- is n|ot prese|
|00003220| 6e 74 2c 20 61 6e 20 65 | 72 72 6f 72 20 69 73 20 |nt, an e|rror is |
|00003230| 72 65 70 6f 72 74 65 64 | 20 61 6e 64 20 74 68 65 |reported| and the|
|00003240| 20 75 73 65 72 20 69 73 | 20 67 69 76 65 6e 20 74 | user is| given t|
|00003250| 68 65 0d 2d 2d 20 6f 70 | 74 69 6f 6e 20 74 6f 20 |he.-- op|tion to |
|00003260| 66 69 6e 64 20 69 74 2c | 20 6f 72 20 28 72 65 2d |find it,| or (re-|
|00003270| 29 20 69 6e 73 74 61 6c | 6c 20 74 68 65 20 4b 69 |) instal|l the Ki|
|00003280| 6d 53 74 61 63 6b 73 20 | 73 75 69 74 65 2e 20 49 |mStacks |suite. I|
|00003290| 6e 20 74 68 65 0d 2d 2d | 20 6c 61 74 74 65 72 20 |n the.--| latter |
|000032a0| 63 61 73 65 2c 20 77 65 | 20 71 75 69 74 20 66 72 |case, we| quit fr|
|000032b0| 6f 6d 20 74 68 69 73 20 | 73 74 61 63 6b 2e 20 49 |om this |stack. I|
|000032c0| 66 20 74 68 65 20 4f 72 | 64 65 72 73 20 73 74 61 |f the Or|ders sta|
|000032d0| 63 6b 20 69 73 0d 2d 2d | 20 69 6e 20 73 69 74 75 |ck is.--| in situ|
|000032e0| 2c 20 74 68 65 6e 20 77 | 65 20 64 65 66 69 6e 65 |, then w|e define|
|000032f0| 20 74 68 65 20 6c 6f 63 | 61 74 69 6f 6e 20 6f 66 | the loc|ation of|
|00003300| 20 74 68 65 20 45 64 69 | 74 6f 72 69 61 6c 20 6d | the Edi|torial m|
|00003310| 61 74 65 72 69 61 6c 73 | 20 6f 6e 0d 2d 2d 20 74 |aterials| on.-- t|
|00003320| 68 65 20 43 44 2e 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |he CD..-|--------|
|00003330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 67 6c 6f 62 61 |--------|--.globa|
|00003340| 6c 20 43 44 5f 50 41 54 | 48 0d 67 6c 6f 62 61 6c |l CD_PAT|H.global|
|00003350| 20 48 44 5f 50 41 54 48 | 0d 2d 2d 0d 67 6c 6f 62 | HD_PATH|.--.glob|
|00003360| 61 6c 20 4f 52 44 45 52 | 53 5f 53 54 41 43 4b 20 |al ORDER|S_STACK |
|00003370| 20 2d 2d 20 74 68 65 20 | 4f 72 64 65 72 73 20 73 | -- the |Orders s|
|00003380| 74 61 63 6b 2c 20 69 6e | 63 6c 75 64 69 6e 67 20 |tack, in|cluding |
|00003390| 70 61 74 68 0d 67 6c 6f | 62 61 6c 20 54 45 52 4d |path.glo|bal TERM|
|000033a0| 53 5f 43 41 52 44 20 20 | 20 20 2d 2d 20 74 68 65 |S_CARD  |  -- the|
|000033b0| 20 54 65 72 6d 73 20 26 | 20 43 6f 6e 64 69 74 69 | Terms &| Conditi|
|000033c0| 6f 6e 73 20 63 61 72 64 | 0d 67 6c 6f 62 61 6c 20 |ons card|.global |
|000033d0| 4f 52 44 45 52 5f 43 41 | 52 44 20 20 20 20 2d 2d |ORDER_CA|RD    --|
|000033e0| 20 74 68 65 20 43 75 72 | 72 65 6e 74 20 4f 72 64 | the Cur|rent Ord|
|000033f0| 65 72 20 63 61 72 64 0d | 67 6c 6f 62 61 6c 20 43 |er card.|global C|
|00003400| 4f 4d 50 4f 5f 42 41 43 | 4b 20 20 20 20 2d 2d 20 |OMPO_BAC|K    -- |
|00003410| 74 68 65 20 43 6f 6d 70 | 6c 65 74 65 64 20 4f 72 |the Comp|leted Or|
|00003420| 64 65 72 73 20 62 61 63 | 6b 67 72 6f 75 6e 64 0d |ders bac|kground.|
|00003430| 67 6c 6f 62 61 6c 20 4f | 52 44 45 52 5f 50 52 49 |global O|RDER_PRI|
|00003440| 4e 54 20 20 20 2d 2d 20 | 74 68 65 20 50 72 69 6e |NT   -- |the Prin|
|00003450| 74 65 64 20 4f 72 64 65 | 72 73 20 66 6f 72 6d 61 |ted Orde|rs forma|
|00003460| 74 20 63 61 72 64 0d 67 | 6c 6f 62 61 6c 20 50 45 |t card.g|lobal PE|
|00003470| 52 53 5f 44 45 54 5f 43 | 41 52 44 20 2d 2d 20 74 |RS_DET_C|ARD -- t|
|00003480| 68 65 20 75 73 65 72 27 | 73 20 50 65 72 73 6f 6e |he user'|s Person|
|00003490| 61 6c 20 44 65 74 61 69 | 6c 73 20 63 61 72 64 0d |al Detai|ls card.|
|000034a0| 67 6c 6f 62 61 6c 20 45 | 44 49 54 5f 46 4f 4c 44 |global E|DIT_FOLD|
|000034b0| 45 52 20 20 20 2d 2d 20 | 66 6f 6c 64 65 72 20 63 |ER   -- |folder c|
|000034c0| 6f 6e 74 61 69 6e 69 6e | 67 20 45 64 69 74 6f 72 |ontainin|g Editor|
|000034d0| 69 61 6c 20 6d 61 74 65 | 72 69 61 6c 73 0d 67 6c |ial mate|rials.gl|
|000034e0| 6f 62 61 6c 20 45 44 49 | 54 5f 53 54 41 43 4b 20 |obal EDI|T_STACK |
|000034f0| 20 20 20 2d 2d 20 45 64 | 69 74 6f 72 69 61 6c 20 |   -- Ed|itorial |
|00003500| 73 74 61 63 6b 2c 20 69 | 6e 63 6c 75 64 69 6e 67 |stack, i|ncluding|
|00003510| 20 70 61 74 68 0d 67 6c | 6f 62 61 6c 20 57 45 4c | path.gl|obal WEL|
|00003520| 43 4f 4d 45 5f 43 41 52 | 44 20 20 2d 2d 20 57 65 |COME_CAR|D  -- We|
|00003530| 6c 63 6f 6d 65 20 6c 65 | 74 74 65 72 20 63 61 72 |lcome le|tter car|
|00003540| 64 0d 67 6c 6f 62 61 6c | 20 50 52 4f 44 53 55 50 |d.global| PRODSUP|
|00003550| 5f 43 41 52 44 20 20 2d | 2d 20 50 72 6f 64 75 63 |_CARD  -|- Produc|
|00003560| 74 20 53 75 70 70 6f 72 | 74 20 63 61 72 64 0d 67 |t Suppor|t card.g|
|00003570| 6c 6f 62 61 6c 20 50 52 | 4f 44 54 45 53 54 5f 43 |lobal PR|ODTEST_C|
|00003580| 41 52 44 20 2d 2d 20 50 | 72 6f 64 75 63 74 20 54 |ARD -- P|roduct T|
|00003590| 65 73 74 69 6e 67 20 63 | 61 72 64 0d 67 6c 6f 62 |esting c|ard.glob|
|000035a0| 61 6c 20 54 52 41 44 45 | 5f 43 41 52 44 20 20 20 |al TRADE|_CARD   |
|000035b0| 20 2d 2d 20 54 72 61 64 | 65 6d 61 72 6b 73 20 63 | -- Trad|emarks c|
|000035c0| 61 72 64 0d 67 6c 6f 62 | 61 6c 20 41 43 4b 4e 4f |ard.glob|al ACKNO|
|000035d0| 57 5f 43 41 52 44 20 20 | 20 2d 2d 20 41 63 6b 6e |W_CARD  | -- Ackn|
|000035e0| 6f 77 6c 65 64 67 65 6d | 65 6e 74 73 20 63 61 72 |owledgem|ents car|
|000035f0| 64 0d 67 6c 6f 62 61 6c | 20 53 48 4f 4f 54 5f 53 |d.global| SHOOT_S|
|00003600| 54 41 43 4b 20 20 20 2d | 2d 20 74 68 65 20 54 72 |TACK   -|- the Tr|
|00003610| 6f 75 62 6c 65 73 68 6f | 6f 74 69 6e 67 20 73 74 |oublesho|oting st|
|00003620| 61 63 6b 0d 67 6c 6f 62 | 61 6c 20 43 41 52 49 4e |ack.glob|al CARIN|
|00003630| 47 5f 53 54 41 43 4b 20 | 20 2d 2d 20 74 68 65 20 |G_STACK | -- the |
|00003640| 43 61 72 69 6e 67 20 66 | 6f 72 20 43 44 2d 52 4f |Caring f|or CD-RO|
|00003650| 4d 20 73 74 61 63 6b 0d | 67 6c 6f 62 61 6c 20 43 |M stack.|global C|
|00003660| 44 57 48 41 54 5f 53 54 | 41 43 4b 20 20 2d 2d 20 |DWHAT_ST|ACK  -- |
|00003670| 74 68 65 20 43 44 2d 57 | 68 61 74 3f 20 73 74 61 |the CD-W|hat? sta|
|00003680| 63 6b 0d 67 6c 6f 62 61 | 6c 20 47 45 53 54 41 4c |ck.globa|l GESTAL|
|00003690| 54 5f 53 54 41 43 4b 20 | 2d 2d 20 74 68 65 20 47 |T_STACK |-- the G|
|000036a0| 65 73 74 61 6c 74 20 73 | 74 61 63 6b 0d 67 6c 6f |estalt s|tack.glo|
|000036b0| 62 61 6c 20 51 55 49 43 | 4b 5f 53 54 41 43 4b 20 |bal QUIC|K_STACK |
|000036c0| 20 20 2d 2d 20 74 68 65 | 20 51 75 69 63 6b 54 69 |  -- the| QuickTi|
|000036d0| 6d 65 20 73 74 61 63 6b | 0d 2d 2d 0d 70 75 74 20 |me stack|.--.put |
|000036e0| 48 44 5f 50 41 54 48 20 | 26 20 22 4f 72 64 65 72 |HD_PATH |& "Order|
|000036f0| 73 22 20 69 6e 74 6f 20 | 4f 52 44 45 52 53 5f 53 |s" into |ORDERS_S|
|00003700| 54 41 43 4b 0d 69 66 20 | 66 69 6c 65 53 74 61 74 |TACK.if |fileStat|
|00003710| 75 73 28 4f 52 44 45 52 | 53 5f 53 54 41 43 4b 29 |us(ORDER|S_STACK)|
|00003720| 20 3d 20 46 41 4c 53 45 | 20 74 68 65 6e 0d 70 75 | = FALSE| then.pu|
|00003730| 74 20 66 69 6e 64 53 74 | 61 63 6b 28 22 4f 72 64 |t findSt|ack("Ord|
|00003740| 65 72 73 22 29 20 69 6e | 74 6f 20 4f 52 44 45 52 |ers") in|to ORDER|
|00003750| 53 5f 53 54 41 43 4b 0d | 69 66 20 4f 52 44 45 52 |S_STACK.|if ORDER|
|00003760| 53 5f 53 54 41 43 4b 20 | ad 20 65 6d 70 74 79 20 |S_STACK |. empty |
|00003770| 74 68 65 6e 0d 69 66 20 | 66 72 6f 6d 43 44 28 43 |then.if |fromCD(C|
|00003780| 44 5f 50 41 54 48 20 26 | 20 22 4f 72 64 65 72 73 |D_PATH &| "Orders|
|00003790| 22 2c 4f 52 44 45 52 53 | 5f 53 54 41 43 4b 29 20 |",ORDERS|_STACK) |
|000037a0| 3d 20 54 52 55 45 20 74 | 68 65 6e 0d 61 73 6b 55 |= TRUE t|hen.askU|
|000037b0| 73 65 72 54 6f 49 6e 73 | 74 61 6c 6c 20 22 59 6f |serToIns|tall "Yo|
|000037c0| 75 20 63 61 6e 6e 6f 74 | 20 75 73 65 20 74 68 65 |u cannot| use the|
|000037d0| 20 4f 72 64 65 72 73 20 | 73 74 61 63 6b 20 6f 6e | Orders |stack on|
|000037e0| 20 74 68 65 20 43 44 2d | 52 4f 4d 21 22 0d 65 6e | the CD-|ROM!".en|
|000037f0| 64 20 69 66 0d 65 6c 73 | 65 0d 61 73 6b 55 73 65 |d if.els|e.askUse|
|00003800| 72 54 6f 49 6e 73 74 61 | 6c 6c 20 22 49 20 63 61 |rToInsta|ll "I ca|
|00003810| 6e 27 74 20 6c 6f 63 61 | 74 65 20 61 6e 20 4f 72 |n't loca|te an Or|
|00003820| 64 65 72 73 20 73 74 61 | 63 6b 20 6f 6e 20 79 6f |ders sta|ck on yo|
|00003830| 75 72 20 68 61 72 64 20 | 64 69 73 63 21 22 0d 65 |ur hard |disc!".e|
|00003840| 6e 64 20 69 66 0d 65 6e | 64 20 69 66 0d 2d 2d 20 |nd if.en|d if.-- |
|00003850| 69 66 20 77 65 20 67 65 | 74 20 68 65 72 65 2c 20 |if we ge|t here, |
|00003860| 73 6f 20 66 61 72 20 73 | 6f 20 67 6f 6f 64 21 0d |so far s|o good!.|
|00003870| 70 75 74 20 22 54 65 72 | 6d 73 20 26 20 43 6f 6e |put "Ter|ms & Con|
|00003880| 64 69 74 69 6f 6e 73 22 | 20 69 6e 74 6f 20 54 45 |ditions"| into TE|
|00003890| 52 4d 53 5f 43 41 52 44 | 0d 70 75 74 20 22 43 75 |RMS_CARD|.put "Cu|
|000038a0| 72 72 65 6e 74 20 4f 72 | 64 65 72 22 20 69 6e 74 |rrent Or|der" int|
|000038b0| 6f 20 4f 52 44 45 52 5f | 43 41 52 44 0d 70 75 74 |o ORDER_|CARD.put|
|000038c0| 20 22 50 65 72 73 6f 6e | 61 6c 20 44 65 74 61 69 | "Person|al Detai|
|000038d0| 6c 73 22 20 69 6e 74 6f | 20 50 45 52 53 5f 44 45 |ls" into| PERS_DE|
|000038e0| 54 5f 43 41 52 44 0d 70 | 75 74 20 22 43 6f 6d 70 |T_CARD.p|ut "Comp|
|000038f0| 6c 65 74 65 64 20 4f 72 | 64 65 72 73 22 20 69 6e |leted Or|ders" in|
|00003900| 74 6f 20 43 4f 4d 50 4f | 5f 42 41 43 4b 0d 70 75 |to COMPO|_BACK.pu|
|00003910| 74 20 22 50 72 69 6e 74 | 20 46 6f 72 6d 61 74 22 |t "Print| Format"|
|00003920| 20 69 6e 74 6f 20 4f 52 | 44 45 52 5f 50 52 49 4e | into OR|DER_PRIN|
|00003930| 54 0d 2d 2d 0d 70 75 74 | 20 43 44 5f 50 41 54 48 |T.--.put| CD_PATH|
|00003940| 20 26 20 22 41 72 74 69 | 63 6c 65 73 3a 22 20 69 | & "Arti|cles:" i|
|00003950| 6e 74 6f 20 45 44 49 54 | 5f 46 4f 4c 44 45 52 0d |nto EDIT|_FOLDER.|
|00003960| 70 75 74 20 45 44 49 54 | 5f 46 4f 4c 44 45 52 20 |put EDIT|_FOLDER |
|00003970| 26 20 22 45 64 69 74 6f | 72 69 61 6c 22 20 69 6e |& "Edito|rial" in|
|00003980| 74 6f 20 45 44 49 54 5f | 53 54 41 43 4b 0d 70 75 |to EDIT_|STACK.pu|
|00003990| 74 20 22 57 65 6c 63 6f | 6d 65 22 20 69 6e 74 6f |t "Welco|me" into|
|000039a0| 20 57 45 4c 43 4f 4d 45 | 5f 43 41 52 44 0d 70 75 | WELCOME|_CARD.pu|
|000039b0| 74 20 22 50 72 6f 64 75 | 63 74 20 53 75 70 70 6f |t "Produ|ct Suppo|
|000039c0| 72 74 22 20 69 6e 74 6f | 20 50 52 4f 44 53 55 50 |rt" into| PRODSUP|
|000039d0| 5f 43 41 52 44 0d 70 75 | 74 20 22 50 72 6f 64 75 |_CARD.pu|t "Produ|
|000039e0| 63 74 20 54 65 73 74 69 | 6e 67 22 20 69 6e 74 6f |ct Testi|ng" into|
|000039f0| 20 50 52 4f 44 54 45 53 | 54 5f 43 41 52 44 0d 70 | PRODTES|T_CARD.p|
|00003a00| 75 74 20 22 54 72 61 64 | 65 6d 61 72 6b 73 22 20 |ut "Trad|emarks" |
|00003a10| 69 6e 74 6f 20 54 52 41 | 44 45 5f 43 41 52 44 0d |into TRA|DE_CARD.|
|00003a20| 70 75 74 20 22 41 63 6b | 6e 6f 77 6c 65 64 67 65 |put "Ack|nowledge|
|00003a30| 6d 65 6e 74 73 22 20 69 | 6e 74 6f 20 41 43 4b 4e |ments" i|nto ACKN|
|00003a40| 4f 57 5f 43 41 52 44 0d | 2d 2d 0d 70 75 74 20 45 |OW_CARD.|--.put E|
|00003a50| 44 49 54 5f 46 4f 4c 44 | 45 52 20 26 20 22 54 72 |DIT_FOLD|ER & "Tr|
|00003a60| 6f 75 62 6c 65 73 68 6f | 6f 74 69 6e 67 22 20 69 |oublesho|oting" i|
|00003a70| 6e 74 6f 20 53 48 4f 4f | 54 5f 53 54 41 43 4b 0d |nto SHOO|T_STACK.|
|00003a80| 70 75 74 20 45 44 49 54 | 5f 46 4f 4c 44 45 52 20 |put EDIT|_FOLDER |
|00003a90| 26 20 22 43 61 72 69 6e | 67 20 66 6f 72 20 43 44 |& "Carin|g for CD|
|00003aa0| 2d 52 4f 4d 22 20 69 6e | 74 6f 20 43 41 52 49 4e |-ROM" in|to CARIN|
|00003ab0| 47 5f 53 54 41 43 4b 0d | 70 75 74 20 45 44 49 54 |G_STACK.|put EDIT|
|00003ac0| 5f 46 4f 4c 44 45 52 20 | 26 20 22 43 44 2d 57 68 |_FOLDER |& "CD-Wh|
|00003ad0| 61 74 3f 22 20 69 6e 74 | 6f 20 43 44 57 48 41 54 |at?" int|o CDWHAT|
|00003ae0| 5f 53 54 41 43 4b 0d 70 | 75 74 20 45 44 49 54 5f |_STACK.p|ut EDIT_|
|00003af0| 46 4f 4c 44 45 52 20 26 | 20 22 47 65 73 74 61 6c |FOLDER &| "Gestal|
|00003b00| 74 22 20 69 6e 74 6f 20 | 47 45 53 54 41 4c 54 5f |t" into |GESTALT_|
|00003b10| 53 54 41 43 4b 0d 70 75 | 74 20 45 44 49 54 5f 46 |STACK.pu|t EDIT_F|
|00003b20| 4f 4c 44 45 52 20 26 20 | 22 51 75 69 63 6b 54 69 |OLDER & |"QuickTi|
|00003b30| 6d 65 22 20 69 6e 74 6f | 20 51 55 49 43 4b 5f 53 |me" into| QUICK_S|
|00003b40| 54 41 43 4b 0d 65 6e 64 | 20 64 65 66 69 6e 65 45 |TACK.end| defineE|
|00003b50| 64 69 74 6f 72 46 6f 6c | 64 65 72 0d 0d 2d 2d a5 |ditorFol|der..--.|
|00003b60| 0d 66 75 6e 63 74 69 6f | 6e 20 67 65 74 53 74 61 |.functio|n getSta|
|00003b70| 63 6b 50 61 74 68 20 73 | 74 72 0d 2d 2d 2d 2d 2d |ckPath s|tr.-----|
|00003b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b90| 2d 2d 0d 2d 2d 20 52 65 | 74 75 72 6e 20 61 20 70 |--.-- Re|turn a p|
|00003ba0| 61 74 68 20 74 6f 20 74 | 68 65 20 73 74 61 63 6b |ath to t|he stack|
|00003bb0| 20 77 68 6f 73 65 20 6c | 6f 6e 67 20 6e 61 6d 65 | whose l|ong name|
|00003bc0| 20 69 73 20 69 6e 20 73 | 74 72 2e 20 4e 6f 74 65 | is in s|tr. Note|
|00003bd0| 20 74 68 61 74 0d 2d 2d | 20 74 68 65 20 70 61 74 | that.--| the pat|
|00003be0| 68 20 65 78 63 6c 75 64 | 65 73 20 74 68 65 20 61 |h exclud|es the a|
|00003bf0| 63 74 75 61 6c 20 6e 61 | 6d 65 20 6f 66 20 74 68 |ctual na|me of th|
|00003c00| 65 20 73 74 61 63 6b 20 | 64 6f 63 75 6d 65 6e 74 |e stack |document|
|00003c10| 2e 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..------|--------|
|00003c20| 2d 2d 2d 0d 70 75 74 20 | 63 68 61 72 20 38 20 74 |---.put |char 8 t|
|00003c30| 6f 20 28 6c 65 6e 67 74 | 68 28 73 74 72 29 20 2d |o (lengt|h(str) -|
|00003c40| 20 31 29 20 6f 66 20 73 | 74 72 20 69 6e 74 6f 20 | 1) of s|tr into |
|00003c50| 73 74 72 0d 72 65 70 65 | 61 74 0d 69 66 20 6c 61 |str.repe|at.if la|
|00003c60| 73 74 20 63 68 61 72 20 | 6f 66 20 73 74 72 20 ad |st char |of str .|
|00003c70| 20 22 3a 22 20 74 68 65 | 6e 0d 64 65 6c 65 74 65 | ":" the|n.delete|
|00003c80| 20 6c 61 73 74 20 63 68 | 61 72 20 6f 66 20 73 74 | last ch|ar of st|
|00003c90| 72 0d 65 6c 73 65 0d 65 | 78 69 74 20 72 65 70 65 |r.else.e|xit repe|
|00003ca0| 61 74 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 72 65 |at.end i|f.end re|
|00003cb0| 70 65 61 74 0d 72 65 74 | 75 72 6e 20 73 74 72 0d |peat.ret|urn str.|
|00003cc0| 65 6e 64 20 67 65 74 53 | 74 61 63 6b 50 61 74 68 |end getS|tackPath|
|00003cd0| 0d 0d 2d 2d a5 0d 66 75 | 6e 63 74 69 6f 6e 20 63 |..--..fu|nction c|
|00003ce0| 68 65 63 6b 53 74 61 63 | 6b 20 70 61 74 68 2c 73 |heckStac|k path,s|
|00003cf0| 74 72 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |tr.-----|--------|
|00003d00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 2d 2d |--------|-----.--|
|00003d10| 20 52 65 74 75 72 6e 20 | 74 68 65 20 66 75 6c 6c | Return |the full|
|00003d20| 20 70 61 74 68 4e 61 6d | 65 20 6f 66 20 74 68 65 | pathNam|e of the|
|00003d30| 20 73 74 61 63 6b 20 77 | 68 6f 73 65 20 70 61 74 | stack w|hose pat|
|00003d40| 68 20 61 6e 64 20 64 6f | 63 75 6d 65 6e 74 20 6e |h and do|cument n|
|00003d50| 61 6d 65 0d 2d 2d 20 61 | 72 65 20 73 70 65 63 69 |ame.-- a|re speci|
|00003d60| 66 69 65 64 2e 20 49 66 | 20 74 68 65 72 65 20 69 |fied. If| there i|
|00003d70| 73 20 6e 6f 20 73 75 63 | 68 20 73 74 61 63 6b 2c |s no suc|h stack,|
|00003d80| 20 72 65 74 75 72 6e 20 | 65 6d 70 74 79 2e 0d 2d | return |empty..-|
|00003d90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 69 66 20 28 74 68 |--------|-.if (th|
|00003db0| 65 72 65 20 69 73 20 61 | 20 73 74 61 63 6b 20 28 |ere is a| stack (|
|00003dc0| 70 61 74 68 20 26 20 73 | 74 72 29 29 20 3d 20 54 |path & s|tr)) = T|
|00003dd0| 52 55 45 20 74 68 65 6e | 0d 72 65 74 75 72 6e 20 |RUE then|.return |
|00003de0| 70 61 74 68 20 26 20 73 | 74 72 0d 65 6c 73 65 0d |path & s|tr.else.|
|00003df0| 72 65 74 75 72 6e 20 65 | 6d 70 74 79 0d 65 6e 64 |return e|mpty.end|
|00003e00| 20 69 66 0d 65 6e 64 20 | 63 68 65 63 6b 53 74 61 | if.end |checkSta|
|00003e10| 63 6b 0d 0d 2d 2d a5 0d | 66 75 6e 63 74 69 6f 6e |ck..--..|function|
|00003e20| 20 66 72 6f 6d 43 44 20 | 43 44 70 61 74 68 2c 48 | fromCD |CDpath,H|
|00003e30| 44 70 61 74 68 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |Dpath.--|--------|
|00003e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003e50| 2d 0d 2d 2d 20 52 65 74 | 75 72 6e 20 54 52 55 45 |-.-- Ret|urn TRUE|
|00003e60| 20 69 66 20 74 68 69 73 | 20 73 74 61 63 6b 20 69 | if this| stack i|
|00003e70| 73 20 62 65 69 6e 67 20 | 72 75 6e 20 66 72 6f 6d |s being |run from|
|00003e80| 20 74 68 65 20 43 44 2d | 52 4f 4d 2e 20 57 65 20 | the CD-|ROM. We |
|00003e90| 6d 69 67 68 74 0d 2d 2d | 20 77 61 6e 74 20 74 6f |might.--| want to|
|00003ea0| 20 6d 61 6b 65 20 74 68 | 69 73 20 61 20 62 69 74 | make th|is a bit|
|00003eb0| 20 6d 6f 72 65 20 73 6f | 70 68 69 73 74 69 63 61 | more so|phistica|
|00003ec0| 74 65 64 20 6c 61 74 65 | 72 2c 20 73 6f 20 77 65 |ted late|r, so we|
|00003ed0| 20 68 61 76 65 0d 2d 2d | 20 70 61 63 6b 61 67 65 | have.--| package|
|00003ee0| 64 20 69 74 20 61 77 61 | 79 20 72 65 6d 6f 76 69 |d it awa|y removi|
|00003ef0| 6e 67 20 74 68 65 20 6e | 65 65 64 20 66 6f 72 20 |ng the n|eed for |
|00003f00| 74 6f 6f 20 6d 75 63 68 | 20 73 75 72 67 65 72 79 |too much| surgery|
|00003f10| 20 6f 6e 0d 2d 2d 20 63 | 61 6c 6c 69 6e 67 20 72 | on.-- c|alling r|
|00003f20| 6f 75 74 69 6e 65 73 2e | 0d 2d 2d 2d 2d 2d 2d 2d |outines.|.-------|
|00003f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003f40| 2d 2d 2d 2d 0d 72 65 74 | 75 72 6e 20 43 44 70 61 |----.ret|urn CDpa|
|00003f50| 74 68 20 3d 20 48 44 70 | 61 74 68 0d 65 6e 64 20 |th = HDp|ath.end |
|00003f60| 66 72 6f 6d 43 44 0d 0d | 2d 2d a5 0d 66 75 6e 63 |fromCD..|--..func|
|00003f70| 74 69 6f 6e 20 67 65 74 | 55 73 65 72 45 6e 76 0d |tion get|UserEnv.|
|00003f80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003f90| 2d 0d 2d 2d 20 52 65 74 | 75 72 6e 20 68 6f 77 20 |-.-- Ret|urn how |
|00003fa0| 74 68 65 20 75 73 65 72 | 20 68 61 64 20 48 79 70 |the user| had Hyp|
|00003fb0| 65 72 43 61 72 64 20 73 | 65 74 20 75 70 20 62 65 |erCard s|et up be|
|00003fc0| 66 6f 72 65 20 4b 69 6d | 53 74 61 63 6b 73 0d 2d |fore Kim|Stacks.-|
|00003fd0| 2d 20 77 61 73 20 6c 61 | 75 6e 63 68 65 64 20 61 |- was la|unched a|
|00003fe0| 6e 64 20 70 72 65 76 65 | 6e 74 20 61 6e 79 20 62 |nd preve|nt any b|
|00003ff0| 61 64 20 69 6e 66 6c 75 | 65 6e 65 63 65 73 2e 0d |ad influ|eneces..|
|00004000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004010| 2d 0d 70 75 74 20 74 68 | 65 20 75 73 65 72 4c 65 |-.put th|e userLe|
|00004020| 76 65 6c 20 69 6e 74 6f | 20 69 74 65 6d 20 31 20 |vel into| item 1 |
|00004030| 6f 66 20 65 6e 76 0d 70 | 75 74 20 74 68 65 20 70 |of env.p|ut the p|
|00004040| 6f 77 65 72 4b 65 79 73 | 20 69 6e 74 6f 20 69 74 |owerKeys| into it|
|00004050| 65 6d 20 32 20 6f 66 20 | 65 6e 76 0d 70 75 74 20 |em 2 of |env.put |
|00004060| 74 68 65 20 74 65 78 74 | 41 72 72 6f 77 73 20 69 |the text|Arrows i|
|00004070| 6e 74 6f 20 69 74 65 6d | 20 33 20 6f 66 20 65 6e |nto item| 3 of en|
|00004080| 76 0d 70 75 74 20 74 68 | 65 20 62 6c 69 6e 64 54 |v.put th|e blindT|
|00004090| 79 70 69 6e 67 20 69 6e | 74 6f 20 69 74 65 6d 20 |yping in|to item |
|000040a0| 34 20 6f 66 20 65 6e 76 | 0d 73 65 74 20 74 68 65 |4 of env|.set the|
|000040b0| 20 6c 6f 63 6b 52 65 63 | 65 6e 74 20 74 6f 20 54 | lockRec|ent to T|
|000040c0| 52 55 45 0d 73 65 74 20 | 74 68 65 20 6c 6f 63 6b |RUE.set |the lock|
|000040d0| 4d 65 73 73 61 67 65 73 | 20 74 6f 20 54 52 55 45 |Messages| to TRUE|
|000040e0| 0d 72 65 74 75 72 6e 20 | 65 6e 76 0d 65 6e 64 20 |.return |env.end |
|000040f0| 67 65 74 55 73 65 72 45 | 6e 76 0d 0d 2d 2d a5 0d |getUserE|nv..--..|
|00004100| 6f 6e 20 73 65 74 55 73 | 65 72 45 6e 76 0d 2d 2d |on setUs|erEnv.--|
|00004110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 2d 2d 20 53 65 74 |--------|-.-- Set|
|00004120| 20 75 70 20 48 79 70 65 | 72 43 61 72 64 20 74 6f | up Hype|rCard to|
|00004130| 20 73 75 69 74 20 74 68 | 65 20 6e 65 65 64 73 20 | suit th|e needs |
|00004140| 6f 66 20 22 4b 69 6d 53 | 74 61 63 6b 73 22 2e 20 |of "KimS|tacks". |
|00004150| 57 65 20 61 6c 73 6f 20 | 63 68 65 63 6b 0d 2d 2d |We also |check.--|
|00004160| 20 74 68 61 74 20 63 6f | 6c 6f 75 72 20 61 6e 64 | that co|lour and|
|00004170| 20 51 75 69 63 6b 54 69 | 6d 65 20 61 72 65 20 61 | QuickTi|me are a|
|00004180| 76 61 69 6c 61 62 6c 65 | 0d 2d 2d 2d 2d 2d 2d 2d |vailable|.-------|
|00004190| 2d 2d 2d 2d 0d 67 6c 6f | 62 61 6c 20 48 41 56 45 |----.glo|bal HAVE|
|000041a0| 5f 43 4f 4c 4f 55 52 20 | 20 20 20 20 20 2d 2d 20 |_COLOUR |     -- |
|000041b0| 54 52 55 45 20 69 66 20 | 74 68 65 20 63 6f 6c 6f |TRUE if |the colo|
|000041c0| 75 72 20 64 65 70 74 68 | 20 69 73 20 67 72 65 61 |ur depth| is grea|
|000041d0| 74 65 72 20 74 68 61 6e | 20 32 35 36 0d 67 6c 6f |ter than| 256.glo|
|000041e0| 62 61 6c 20 48 41 56 45 | 5f 51 55 49 43 4b 54 49 |bal HAVE|_QUICKTI|
|000041f0| 4d 45 20 20 20 2d 2d 20 | 54 52 55 45 20 69 66 20 |ME   -- |TRUE if |
|00004200| 51 75 69 63 6b 54 69 6d | 65 20 69 73 20 70 72 65 |QuickTim|e is pre|
|00004210| 73 65 6e 74 0d 67 6c 6f | 62 61 6c 20 53 43 52 45 |sent.glo|bal SCRE|
|00004220| 45 4e 5f 53 49 5a 45 20 | 20 20 20 20 20 2d 2d 20 |EN_SIZE |     -- |
|00004230| 74 68 65 20 73 63 72 65 | 65 6e 20 73 69 7a 65 20 |the scre|en size |
|00004240| 61 73 20 3c 77 69 64 74 | 68 3e 78 3c 68 65 69 67 |as <widt|h>x<heig|
|00004250| 68 74 3e 0d 67 6c 6f 62 | 61 6c 20 43 41 52 44 5f |ht>.glob|al CARD_|
|00004260| 4e 41 4d 45 5f 4c 45 4e | 20 20 20 20 2d 2d 20 61 |NAME_LEN|    -- a|
|00004270| 6e 20 69 72 72 69 74 61 | 74 69 6e 67 20 72 65 73 |n irrita|ting res|
|00004280| 74 72 69 63 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |triction| of the |
|00004290| 75 73 65 66 75 6c 20 6c | 65 6e 67 74 68 20 6f 66 |useful l|ength of|
|000042a0| 20 63 61 72 64 20 6e 61 | 6d 65 73 0d 67 6c 6f 62 | card na|mes.glob|
|000042b0| 61 6c 20 48 45 4c 50 5f | 49 53 5f 4f 4e 20 20 20 |al HELP_|IS_ON   |
|000042c0| 20 20 20 20 2d 2d 20 54 | 52 55 45 20 69 66 20 74 |    -- T|RUE if t|
|000042d0| 68 65 20 55 6e 69 76 65 | 72 73 61 6c 20 48 65 6c |he Unive|rsal Hel|
|000042e0| 70 20 48 61 6e 64 6c 65 | 72 20 69 73 20 61 63 74 |p Handle|r is act|
|000042f0| 69 76 65 0d 67 6c 6f 62 | 61 6c 20 43 48 45 43 4b |ive.glob|al CHECK|
|00004300| 5f 4d 41 52 4b 20 20 20 | 20 20 20 20 2d 2d 20 74 |_MARK   |    -- t|
|00004310| 68 65 20 22 c3 22 20 63 | 68 61 72 61 63 74 65 72 |he "." c|haracter|
|00004320| 0d 2d 2d 0d 73 65 74 20 | 74 68 65 20 63 75 72 73 |.--.set |the curs|
|00004330| 6f 72 20 74 6f 20 22 77 | 61 74 63 68 22 0d 73 65 |or to "w|atch".se|
|00004340| 74 20 74 68 65 20 6c 6f | 63 6b 53 63 72 65 65 6e |t the lo|ckScreen|
|00004350| 20 74 6f 20 54 52 55 45 | 0d 2d 2d 0d 70 75 74 20 | to TRUE|.--.put |
|00004360| 65 6d 70 74 79 20 69 6e | 74 6f 20 55 53 45 52 5f |empty in|to USER_|
|00004370| 45 4e 56 0d 70 75 74 20 | 46 41 4c 53 45 20 69 6e |ENV.put |FALSE in|
|00004380| 74 6f 20 48 45 4c 50 5f | 49 53 5f 4f 4e 20 2d 2d |to HELP_|IS_ON --|
|00004390| 20 72 65 61 6c 20 4d 61 | 63 20 75 73 65 72 73 20 | real Ma|c users |
|000043a0| 64 6f 6e 27 74 20 6e 65 | 65 64 20 68 65 6c 70 21 |don't ne|ed help!|
|000043b0| 0d 70 75 74 20 33 31 20 | 69 6e 74 6f 20 43 41 52 |.put 31 |into CAR|
|000043c0| 44 5f 4e 41 4d 45 5f 4c | 45 4e 0d 70 75 74 20 22 |D_NAME_L|EN.put "|
|000043d0| c3 22 20 69 6e 74 6f 20 | 43 48 45 43 4b 5f 4d 41 |." into |CHECK_MA|
|000043e0| 52 4b 0d 2d 2d 0d 72 65 | 73 65 74 20 6d 65 6e 75 |RK.--.re|set menu|
|000043f0| 62 61 72 0d 73 68 6f 77 | 20 6d 65 6e 75 42 61 72 |bar.show| menuBar|
|00004400| 0d 68 69 64 65 20 6d 65 | 73 73 61 67 65 0d 73 65 |.hide me|ssage.se|
|00004410| 74 20 74 68 65 20 75 73 | 65 72 4c 65 76 65 6c 20 |t the us|erLevel |
|00004420| 74 6f 20 35 20 2d 2d 20 | 6c 65 74 20 74 68 65 20 |to 5 -- |let the |
|00004430| 75 73 65 72 20 68 61 76 | 65 20 61 20 6c 6f 6f 6b |user hav|e a look|
|00004440| 2c 20 74 68 65 79 20 63 | 61 6e 20 61 6c 77 61 79 |, they c|an alway|
|00004450| 73 20 72 65 69 6e 73 74 | 61 6c 6c 20 69 66 20 61 |s reinst|all if a|
|00004460| 6e 79 74 68 69 6e 67 20 | 69 73 20 6d 65 73 73 65 |nything |is messe|
|00004470| 64 20 75 70 21 0d 2d 2d | 0d 70 75 74 20 68 61 76 |d up!.--|.put hav|
|00004480| 65 43 6f 6c 6f 75 72 28 | 29 20 69 6e 74 6f 20 48 |eColour(|) into H|
|00004490| 41 56 45 5f 43 4f 4c 4f | 55 52 0d 70 75 74 20 68 |AVE_COLO|UR.put h|
|000044a0| 61 76 65 51 75 69 63 6b | 54 69 6d 65 28 29 20 69 |aveQuick|Time() i|
|000044b0| 6e 74 6f 20 48 41 56 45 | 5f 51 55 49 43 4b 54 49 |nto HAVE|_QUICKTI|
|000044c0| 4d 45 0d 70 75 74 20 73 | 63 72 65 65 6e 53 69 7a |ME.put s|creenSiz|
|000044d0| 65 28 29 20 69 6e 74 6f | 20 53 43 52 45 45 4e 5f |e() into| SCREEN_|
|000044e0| 53 49 5a 45 0d 65 6e 64 | 20 73 65 74 55 73 65 72 |SIZE.end| setUser|
|000044f0| 45 6e 76 0d 0d 2d 2d a5 | 0d 6f 6e 20 72 65 73 65 |Env..--.|.on rese|
|00004500| 74 55 73 65 72 45 6e 76 | 0d 2d 2d 2d 2d 2d 2d 2d |tUserEnv|.-------|
|00004510| 2d 2d 2d 2d 2d 2d 0d 2d | 2d 20 52 65 73 74 6f 72 |------.-|- Restor|
|00004520| 65 20 68 6f 77 20 48 79 | 70 65 72 43 61 72 64 20 |e how Hy|perCard |
|00004530| 77 61 73 20 73 65 74 20 | 75 70 20 62 65 66 6f 72 |was set |up befor|
|00004540| 65 20 4b 69 6d 53 74 61 | 63 6b 73 20 77 61 73 20 |e KimSta|cks was |
|00004550| 6c 61 75 6e 63 68 65 64 | 2e 0d 2d 2d 2d 2d 2d 2d |launched|..------|
|00004560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 67 6c 6f 62 |--------|---.glob|
|00004570| 61 6c 20 55 53 45 52 5f | 45 4e 56 0d 67 6c 6f 62 |al USER_|ENV.glob|
|00004580| 61 6c 20 49 4e 44 45 58 | 5f 53 54 41 43 4b 0d 2d |al INDEX|_STACK.-|
|00004590| 2d 0d 69 66 20 55 53 45 | 52 5f 45 4e 56 20 ad 20 |-.if USE|R_ENV . |
|000045a0| 65 6d 70 74 79 20 74 68 | 65 6e 0d 73 65 74 20 74 |empty th|en.set t|
|000045b0| 68 65 20 75 73 65 72 4c | 65 76 65 6c 20 74 6f 20 |he userL|evel to |
|000045c0| 69 74 65 6d 20 31 20 6f | 66 20 55 53 45 52 5f 45 |item 1 o|f USER_E|
|000045d0| 4e 56 0d 73 65 74 20 74 | 68 65 20 70 6f 77 65 72 |NV.set t|he power|
|000045e0| 4b 65 79 73 20 74 6f 20 | 69 74 65 6d 20 32 20 6f |Keys to |item 2 o|
|000045f0| 66 20 55 53 45 52 5f 45 | 4e 56 0d 73 65 74 20 74 |f USER_E|NV.set t|
|00004600| 68 65 20 74 65 78 74 41 | 72 72 6f 77 73 20 74 6f |he textA|rrows to|
|00004610| 20 69 74 65 6d 20 33 20 | 6f 66 20 55 53 45 52 5f | item 3 |of USER_|
|00004620| 45 4e 56 0d 73 65 74 20 | 74 68 65 20 62 6c 69 6e |ENV.set |the blin|
|00004630| 64 54 79 70 69 6e 67 20 | 74 6f 20 69 74 65 6d 20 |dTyping |to item |
|00004640| 34 20 6f 66 20 55 53 45 | 52 5f 45 4e 56 0d 65 6e |4 of USE|R_ENV.en|
|00004650| 64 20 69 66 0d 73 65 74 | 20 74 68 65 20 6c 6f 63 |d if.set| the loc|
|00004660| 6b 52 65 63 65 6e 74 20 | 74 6f 20 54 52 55 45 0d |kRecent |to TRUE.|
|00004670| 73 65 74 20 74 68 65 20 | 6c 6f 63 6b 4d 65 73 73 |set the |lockMess|
|00004680| 61 67 65 73 20 74 6f 20 | 54 52 55 45 0d 73 74 6f |ages to |TRUE.sto|
|00004690| 70 20 75 73 69 6e 67 20 | 73 74 61 63 6b 20 49 4e |p using |stack IN|
|000046a0| 44 45 58 5f 53 54 41 43 | 4b 0d 72 65 73 65 74 20 |DEX_STAC|K.reset |
|000046b0| 6d 65 6e 75 62 61 72 0d | 65 6e 64 20 72 65 73 65 |menubar.|end rese|
|000046c0| 74 55 73 65 72 45 6e 76 | 0d 0d 2d 2d a5 0d 6f 6e |tUserEnv|..--..on|
|000046d0| 20 69 64 6c 65 0d 2d 2d | 2d 2d 2d 0d 2d 2d 20 47 | idle.--|---.-- G|
|000046e0| 65 6e 65 72 61 6c 20 68 | 6f 75 73 65 6b 65 65 70 |eneral h|ousekeep|
|000046f0| 69 6e 67 2e 20 54 68 65 | 20 6d 61 69 6e 20 70 72 |ing. The| main pr|
|00004700| 6f 62 6c 65 6d 20 69 73 | 20 74 6f 20 6b 65 65 70 |oblem is| to keep|
|00004710| 20 74 72 61 63 6b 20 6f | 66 20 74 68 65 0d 2d 2d | track o|f the.--|
|00004720| 20 6e 61 76 69 67 61 74 | 69 6f 6e 20 70 61 6c 65 | navigat|ion pale|
|00004730| 74 74 65 2e 20 49 74 20 | 68 61 73 20 61 20 63 6c |tte. It |has a cl|
|00004740| 6f 73 65 20 62 6f 78 20 | 61 6e 64 20 77 65 20 77 |ose box |and we w|
|00004750| 69 73 68 20 69 74 20 64 | 69 64 6e 27 74 0d 2d 2d |ish it d|idn't.--|
|00004760| 20 73 69 6e 63 65 20 77 | 65 20 63 61 6e 27 74 20 | since w|e can't |
|00004770| 61 75 74 6f 6d 61 74 69 | 63 61 6c 6c 79 20 64 65 |automati|cally de|
|00004780| 74 65 63 74 20 77 68 65 | 6e 20 74 68 69 73 20 69 |tect whe|n this i|
|00004790| 73 20 63 6c 69 63 6b 65 | 64 20 62 79 20 74 68 65 |s clicke|d by the|
|000047a0| 0d 2d 2d 20 75 73 65 72 | 2e 20 53 6f 20 77 65 20 |.-- user|. So we |
|000047b0| 68 61 76 65 20 74 6f 20 | 62 65 20 77 61 73 74 65 |have to |be waste|
|000047c0| 66 75 6c 20 61 6e 64 20 | 75 73 65 20 61 6e 20 69 |ful and |use an i|
|000047d0| 64 6c 65 20 68 61 6e 64 | 6c 65 72 2e 0d 2d 2d 2d |dle hand|ler..---|
|000047e0| 2d 2d 0d 0d 65 6e 64 20 | 69 64 6c 65 0d 0d 2d 2d |--..end |idle..--|
|000047f0| a5 0d 6f 6e 20 66 69 72 | 73 74 43 61 72 64 0d 2d |..on fir|stCard.-|
|00004800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 2d 2d 20 47 6f 20 |--------|-.-- Go |
|00004810| 74 6f 20 74 68 65 20 66 | 69 72 73 74 20 6d 61 72 |to the f|irst mar|
|00004820| 6b 65 64 20 63 61 72 64 | 2e 0d 2d 2d 2d 2d 2d 2d |ked card|..------|
|00004830| 2d 2d 2d 2d 0d 76 69 73 | 75 61 6c 20 65 66 66 65 |----.vis|ual effe|
|00004840| 63 74 20 73 63 72 6f 6c | 6c 20 75 70 0d 69 66 20 |ct scrol|l up.if |
|00004850| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 6d 61 |the numb|er of ma|
|00004860| 72 6b 65 64 20 63 61 72 | 64 73 20 3e 20 30 20 74 |rked car|ds > 0 t|
|00004870| 68 65 6e 0d 67 6f 20 74 | 6f 20 66 69 72 73 74 20 |hen.go t|o first |
|00004880| 6d 61 72 6b 65 64 20 63 | 61 72 64 0d 65 6c 73 65 |marked c|ard.else|
|00004890| 0d 62 65 65 70 0d 65 6e | 64 20 69 66 0d 65 6e 64 |.beep.en|d if.end|
|000048a0| 20 66 69 72 73 74 43 61 | 72 64 0d 0d 2d 2d a5 0d | firstCa|rd..--..|
|000048b0| 6f 6e 20 70 72 65 76 43 | 61 72 64 0d 2d 2d 2d 2d |on prevC|ard.----|
|000048c0| 2d 2d 2d 2d 2d 0d 2d 2d | 20 47 6f 20 74 6f 20 74 |-----.--| Go to t|
|000048d0| 68 65 20 70 72 65 76 69 | 6f 75 73 20 6d 61 72 6b |he previ|ous mark|
|000048e0| 65 64 20 63 61 72 64 2e | 0d 2d 2d 2d 2d 2d 2d 2d |ed card.|.-------|
|000048f0| 2d 2d 0d 76 69 73 75 61 | 6c 20 65 66 66 65 63 74 |--.visua|l effect|
|00004900| 20 73 63 72 6f 6c 6c 20 | 6c 65 66 74 0d 69 66 20 | scroll |left.if |
|00004910| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 6d 61 |the numb|er of ma|
|00004920| 72 6b 65 64 20 63 61 72 | 64 73 20 3e 20 30 20 74 |rked car|ds > 0 t|
|00004930| 68 65 6e 0d 67 6f 20 74 | 6f 20 70 72 65 76 20 6d |hen.go t|o prev m|
|00004940| 61 72 6b 65 64 20 63 61 | 72 64 0d 65 6c 73 65 0d |arked ca|rd.else.|
|00004950| 62 65 65 70 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |beep.end| if.end |
|00004960| 70 72 65 76 43 61 72 64 | 0d 0d 2d 2d a5 0d 6f 6e |prevCard|..--..on|
|00004970| 20 6e 65 78 74 43 61 72 | 64 0d 2d 2d 2d 2d 2d 2d | nextCar|d.------|
|00004980| 2d 2d 2d 0d 2d 2d 20 47 | 6f 20 74 6f 20 74 68 65 |---.-- G|o to the|
|00004990| 20 6e 65 78 74 20 6d 61 | 72 6b 65 64 20 63 61 72 | next ma|rked car|
|000049a0| 64 2e 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 76 69 73 |d..-----|----.vis|
|000049b0| 75 61 6c 20 65 66 66 65 | 63 74 20 73 63 72 6f 6c |ual effe|ct scrol|
|000049c0| 6c 20 72 69 67 68 74 0d | 69 66 20 74 68 65 20 6e |l right.|if the n|
|000049d0| 75 6d 62 65 72 20 6f 66 | 20 6d 61 72 6b 65 64 20 |umber of| marked |
|000049e0| 63 61 72 64 73 20 3e 20 | 30 20 74 68 65 6e 0d 67 |cards > |0 then.g|
|000049f0| 6f 20 74 6f 20 6e 65 78 | 74 20 6d 61 72 6b 65 64 |o to nex|t marked|
|00004a00| 20 63 61 72 64 0d 65 6c | 73 65 0d 62 65 65 70 0d | card.el|se.beep.|
|00004a10| 65 6e 64 20 69 66 0d 65 | 6e 64 20 6e 65 78 74 43 |end if.e|nd nextC|
|00004a20| 61 72 64 0d 0d 2d 2d a5 | 0d 6f 6e 20 6c 61 73 74 |ard..--.|.on last|
|00004a30| 43 61 72 64 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 2d |Card.---|------.-|
|00004a40| 2d 20 47 6f 20 74 6f 20 | 74 68 65 20 6c 61 73 74 |- Go to |the last|
|00004a50| 20 6d 61 72 6b 65 64 20 | 63 61 72 64 2e 0d 2d 2d | marked |card..--|
|00004a60| 2d 2d 2d 2d 2d 2d 2d 0d | 76 69 73 75 61 6c 20 65 |-------.|visual e|
|00004a70| 66 66 65 63 74 20 73 63 | 72 6f 6c 6c 20 64 6f 77 |ffect sc|roll dow|
|00004a80| 6e 0d 69 66 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |n.if the| number |
|00004a90| 6f 66 20 6d 61 72 6b 65 | 64 20 63 61 72 64 73 20 |of marke|d cards |
|00004aa0| 3e 20 30 20 74 68 65 6e | 0d 67 6f 20 74 6f 20 6c |> 0 then|.go to l|
|00004ab0| 61 73 74 20 6d 61 72 6b | 65 64 20 63 61 72 64 0d |ast mark|ed card.|
|00004ac0| 65 6c 73 65 0d 62 65 65 | 70 0d 65 6e 64 20 69 66 |else.bee|p.end if|
|00004ad0| 0d 65 6e 64 20 6c 61 73 | 74 43 61 72 64 0d 0d 2d |.end las|tCard..-|
|00004ae0| 2d a5 0d 6f 6e 20 61 72 | 72 6f 77 4b 65 79 20 74 |-..on ar|rowKey t|
|00004af0| 68 65 4b 65 79 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |heKey.--|--------|
|00004b00| 2d 2d 2d 2d 2d 2d 0d 2d | 2d 20 54 72 61 70 2c 20 |------.-|- Trap, |
|00004b10| 65 78 61 6d 69 6e 65 20 | 61 6e 64 20 61 63 74 20 |examine |and act |
|00004b20| 75 70 6f 6e 20 61 72 72 | 6f 77 20 6b 65 79 73 2e |upon arr|ow keys.|
|00004b30| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|00004b40| 2d 0d 69 66 20 74 68 65 | 4b 65 79 20 3d 20 75 70 |-.if the|Key = up|
|00004b50| 20 74 68 65 6e 0d 66 69 | 72 73 74 43 61 72 64 0d | then.fi|rstCard.|
|00004b60| 65 6c 73 65 20 69 66 20 | 74 68 65 4b 65 79 20 3d |else if |theKey =|
|00004b70| 20 6c 65 66 74 20 74 68 | 65 6e 0d 70 72 65 76 43 | left th|en.prevC|
|00004b80| 61 72 64 0d 65 6c 73 65 | 20 69 66 20 74 68 65 4b |ard.else| if theK|
|00004b90| 65 79 20 3d 20 72 69 67 | 68 74 20 74 68 65 6e 0d |ey = rig|ht then.|
|00004ba0| 6e 65 78 74 43 61 72 64 | 0d 65 6c 73 65 0d 6c 61 |nextCard|.else.la|
|00004bb0| 73 74 43 61 72 64 0d 65 | 6e 64 20 69 66 0d 65 6e |stCard.e|nd if.en|
|00004bc0| 64 20 61 72 72 6f 77 4b | 65 79 0d 0d 2d 2d a5 0d |d arrowK|ey..--..|
|00004bd0| 6f 6e 20 63 6f 6d 6d 61 | 6e 64 4b 65 79 20 74 68 |on comma|ndKey th|
|00004be0| 65 4b 65 79 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |eKey.---|--------|
|00004bf0| 2d 2d 2d 2d 2d 2d 2d 0d | 2d 2d 20 54 72 61 70 2c |-------.|-- Trap,|
|00004c00| 20 65 78 61 6d 69 6e 65 | 20 61 6e 64 20 61 63 74 | examine| and act|
|00004c10| 20 75 70 6f 6e 20 63 6f | 6d 6d 61 6e 64 20 6b 65 | upon co|mmand ke|
|00004c20| 79 73 2e 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ys..----|--------|
|00004c30| 2d 2d 2d 2d 2d 2d 0d 69 | 66 20 74 68 65 4b 65 79 |------.i|f theKey|
|00004c40| 20 3d 20 22 31 22 20 74 | 68 65 6e 0d 66 69 72 73 | = "1" t|hen.firs|
|00004c50| 74 43 61 72 64 0d 65 6c | 73 65 20 69 66 20 74 68 |tCard.el|se if th|
|00004c60| 65 4b 65 79 20 3d 20 22 | 32 22 20 74 68 65 6e 0d |eKey = "|2" then.|
|00004c70| 70 72 65 76 43 61 72 64 | 0d 65 6c 73 65 20 69 66 |prevCard|.else if|
|00004c80| 20 74 68 65 4b 65 79 20 | 3d 20 22 33 22 20 74 68 | theKey |= "3" th|
|00004c90| 65 6e 0d 6e 65 78 74 43 | 61 72 64 0d 65 6c 73 65 |en.nextC|ard.else|
|00004ca0| 20 69 66 20 74 68 65 4b | 65 79 20 3d 20 22 34 22 | if theK|ey = "4"|
|00004cb0| 20 74 68 65 6e 0d 6c 61 | 73 74 43 61 72 64 0d 65 | then.la|stCard.e|
|00004cc0| 6c 73 65 20 69 66 20 74 | 68 65 4b 65 79 20 3d 20 |lse if t|heKey = |
|00004cd0| 22 3f 22 20 74 68 65 6e | 0d 61 6c 65 72 74 20 22 |"?" then|.alert "|
|00004ce0| 52 65 61 6c 20 4d 61 63 | 20 55 73 65 72 73 20 64 |Real Mac| Users d|
|00004cf0| 6f 6e 27 74 20 6e 65 65 | 64 20 68 65 6c 70 22 0d |on't nee|d help".|
|00004d00| 65 6c 73 65 0d 70 61 73 | 73 20 63 6f 6d 6d 61 6e |else.pas|s comman|
|00004d10| 64 4b 65 79 0d 65 6e 64 | 20 69 66 0d 65 6e 64 20 |dKey.end| if.end |
|00004d20| 63 6f 6d 6d 61 6e 64 4b | 65 79 0d 0d 2d 2d a5 0d |commandK|ey..--..|
|00004d30| 6f 6e 20 64 6f 4d 65 6e | 75 20 74 68 65 49 74 65 |on doMen|u theIte|
|00004d40| 6d 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |m.------|--------|
|00004d50| 2d 0d 2d 2d 20 54 72 61 | 70 2c 20 65 78 61 6d 69 |-.-- Tra|p, exami|
|00004d60| 6e 65 20 61 6e 64 20 61 | 63 74 20 75 70 6f 6e 20 |ne and a|ct upon |
|00004d70| 6d 65 6e 75 20 69 74 65 | 6d 20 68 69 74 73 2e 0d |menu ite|m hits..|
|00004d80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00004d90| 67 6c 6f 62 61 6c 20 50 | 52 4f 44 5f 53 54 41 43 |global P|ROD_STAC|
|00004da0| 4b 0d 67 6c 6f 62 61 6c | 20 48 45 4c 50 5f 49 53 |K.global| HELP_IS|
|00004db0| 5f 4f 4e 0d 2d 2d 0d 69 | 66 20 74 68 65 49 74 65 |_ON.--.i|f theIte|
|00004dc0| 6d 20 3d 20 22 46 69 72 | 73 74 22 20 74 68 65 6e |m = "Fir|st" then|
|00004dd0| 0d 66 69 72 73 74 43 61 | 72 64 0d 65 6c 73 65 20 |.firstCa|rd.else |
|00004de0| 69 66 20 74 68 65 49 74 | 65 6d 20 3d 20 22 50 72 |if theIt|em = "Pr|
|00004df0| 65 76 22 20 74 68 65 6e | 0d 70 72 65 76 43 61 72 |ev" then|.prevCar|
|00004e00| 64 0d 65 6c 73 65 20 69 | 66 20 74 68 65 49 74 65 |d.else i|f theIte|
|00004e10| 6d 20 3d 20 22 4e 65 78 | 74 22 20 74 68 65 6e 0d |m = "Nex|t" then.|
|00004e20| 6e 65 78 74 43 61 72 64 | 0d 65 6c 73 65 20 69 66 |nextCard|.else if|
|00004e30| 20 74 68 65 49 74 65 6d | 20 3d 20 22 4c 61 73 74 | theItem| = "Last|
|00004e40| 22 20 74 68 65 6e 0d 6c | 61 73 74 43 61 72 64 0d |" then.l|astCard.|
|00004e50| 65 6c 73 65 20 69 66 20 | 74 68 65 49 74 65 6d 20 |else if |theItem |
|00004e60| 3d 20 22 48 65 6c 70 22 | 20 74 68 65 6e 0d 69 66 |= "Help"| then.if|
|00004e70| 20 68 61 76 65 47 65 73 | 74 61 6c 74 28 29 20 3d | haveGes|talt() =|
|00004e80| 20 54 52 55 45 20 74 68 | 65 6e 0d 69 66 20 67 65 | TRUE th|en.if ge|
|00004e90| 73 74 61 6c 74 53 79 73 | 56 65 72 73 28 29 20 3c |staltSys|Vers() <|
|00004ea0| 20 22 37 22 20 74 68 65 | 6e 0d 69 66 20 48 45 4c | "7" the|n.if HEL|
|00004eb0| 50 5f 49 53 5f 4f 4e 20 | 3d 20 46 41 4c 53 45 20 |P_IS_ON |= FALSE |
|00004ec0| 74 68 65 6e 0d 70 75 74 | 20 22 57 68 69 63 68 20 |then.put| "Which |
|00004ed0| 48 65 6c 70 20 77 6f 75 | 6c 64 20 79 6f 75 20 6c |Help wou|ld you l|
|00004ee0| 69 6b 65 3f 22 20 69 6e | 74 6f 20 70 72 6f 6d 70 |ike?" in|to promp|
|00004ef0| 74 0d 69 66 20 63 6f 6e | 66 69 72 6d 28 70 72 6f |t.if con|firm(pro|
|00004f00| 6d 70 74 2c 22 4b 69 6d | 53 74 61 63 6b 73 22 2c |mpt,"Kim|Stacks",|
|00004f10| 22 48 79 70 65 72 43 61 | 72 64 22 29 20 3d 20 22 |"HyperCa|rd") = "|
|00004f20| 4b 69 6d 53 74 61 63 6b | 73 22 20 74 68 65 6e 0d |KimStack|s" then.|
|00004f30| 70 75 74 20 54 52 55 45 | 20 69 6e 74 6f 20 48 45 |put TRUE| into HE|
|00004f40| 4c 50 5f 49 53 5f 4f 4e | 0d 65 6c 73 65 0d 70 61 |LP_IS_ON|.else.pa|
|00004f50| 73 73 20 64 6f 4d 65 6e | 75 0d 65 6e 64 20 69 66 |ss doMen|u.end if|
|00004f60| 0d 65 6c 73 65 0d 70 75 | 74 20 46 41 4c 53 45 20 |.else.pu|t FALSE |
|00004f70| 69 6e 74 6f 20 48 45 4c | 50 5f 49 53 5f 4f 4e 0d |into HEL|P_IS_ON.|
|00004f80| 65 6e 64 20 69 66 0d 73 | 65 74 20 74 68 65 20 63 |end if.s|et the c|
|00004f90| 68 65 63 6b 4d 61 72 6b | 20 6f 66 20 6d 65 6e 75 |heckMark| of menu|
|00004fa0| 49 74 65 6d 20 22 48 65 | 6c 70 22 20 6f 66 20 6d |Item "He|lp" of m|
|00004fb0| 65 6e 75 20 22 47 6f 22 | 20 74 6f 20 48 45 4c 50 |enu "Go"| to HELP|
|00004fc0| 5f 49 53 5f 4f 4e 0d 65 | 6c 73 65 0d 70 61 73 73 |_IS_ON.e|lse.pass|
|00004fd0| 20 64 6f 4d 65 6e 75 0d | 65 6e 64 20 69 66 0d 65 | doMenu.|end if.e|
|00004fe0| 6c 73 65 0d 70 75 74 20 | 22 57 68 69 63 68 20 48 |lse.put |"Which H|
|00004ff0| 65 6c 70 20 77 6f 75 6c | 64 20 79 6f 75 20 6c 69 |elp woul|d you li|
|00005000| 6b 65 3f 22 20 69 6e 74 | 6f 20 70 72 6f 6d 70 74 |ke?" int|o prompt|
|00005010| 0d 69 66 20 63 6f 6e 66 | 69 72 6d 28 70 72 6f 6d |.if conf|irm(prom|
|00005020| 70 74 2c 22 4b 69 6d 53 | 74 61 63 6b 73 22 2c 22 |pt,"KimS|tacks","|
|00005030| 48 79 70 65 72 43 61 72 | 64 22 29 20 3d 20 22 4b |HyperCar|d") = "K|
|00005040| 69 6d 53 74 61 63 6b 73 | 22 20 74 68 65 6e 0d 70 |imStacks|" then.p|
|00005050| 75 74 20 54 52 55 45 20 | 69 6e 74 6f 20 48 45 4c |ut TRUE |into HEL|
|00005060| 50 5f 49 53 5f 4f 4e 0d | 65 6c 73 65 0d 70 61 73 |P_IS_ON.|else.pas|
|00005070| 73 20 64 6f 4d 65 6e 75 | 0d 65 6e 64 20 69 66 0d |s doMenu|.end if.|
|00005080| 65 6e 64 20 69 66 0d 65 | 6c 73 65 20 69 66 20 74 |end if.e|lse if t|
|00005090| 68 65 49 74 65 6d 20 3d | 20 22 46 69 6e 64 2e 2e |heItem =| "Find..|
|000050a0| 2e 22 20 74 68 65 6e 0d | 69 66 20 74 68 65 20 64 |." then.|if the d|
|000050b0| 6f 6e 74 53 65 61 72 63 | 68 20 6f 66 20 74 68 69 |ontSearc|h of thi|
|000050c0| 73 20 62 61 63 6b 67 72 | 6f 75 6e 64 20 3d 20 54 |s backgr|ound = T|
|000050d0| 52 55 45 20 74 68 65 6e | 0d 62 65 65 70 0d 65 6c |RUE then|.beep.el|
|000050e0| 73 65 0d 70 61 73 73 20 | 64 6f 4d 65 6e 75 0d 65 |se.pass |doMenu.e|
|000050f0| 6e 64 20 69 66 0d 65 6c | 73 65 0d 70 61 73 73 20 |nd if.el|se.pass |
|00005100| 64 6f 4d 65 6e 75 0d 65 | 6e 64 20 69 66 0d 65 6e |doMenu.e|nd if.en|
|00005110| 64 20 64 6f 4d 65 6e 75 | 0d 0d 2d 2d a5 0d 66 75 |d doMenu|..--..fu|
|00005120| 6e 63 74 69 6f 6e 20 63 | 68 65 63 6b 46 6f 72 52 |nction c|heckForR|
|00005130| 65 73 6f 75 72 63 65 20 | 72 65 73 54 79 70 65 2c |esource |resType,|
|00005140| 72 65 73 49 44 2c 72 65 | 73 4e 61 6d 2c 74 68 65 |resID,re|sNam,the|
|00005150| 50 61 74 68 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |Path.---|--------|
|00005160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 2d 2d 20 52 65 |--------|--.-- Re|
|00005190| 74 75 72 6e 20 54 52 55 | 45 20 69 66 20 61 20 72 |turn TRU|E if a r|
|000051a0| 65 73 6f 75 72 63 65 20 | 6f 66 20 61 20 73 70 65 |esource |of a spe|
|000051b0| 63 69 66 69 65 64 20 74 | 79 70 65 20 61 6e 64 20 |cified t|ype and |
|000051c0| 49 44 20 61 6e 64 2f 6f | 72 20 6e 61 6d 65 0d 2d |ID and/o|r name.-|
|000051d0| 2d 20 69 73 20 70 72 65 | 73 65 6e 74 20 69 6e 20 |- is pre|sent in |
|000051e0| 74 68 65 20 6e 61 6d 65 | 64 20 73 74 61 63 6b 2e |the name|d stack.|
|000051f0| 20 52 65 74 75 72 6e 20 | 46 41 4c 53 45 20 6f 74 | Return |FALSE ot|
|00005200| 68 65 72 77 69 73 65 2e | 0d 2d 2d 2d 2d 2d 2d 2d |herwise.|.-------|
|00005210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 70 |--------|------.p|
|00005240| 75 74 20 72 65 73 6f 75 | 72 63 65 73 28 74 68 65 |ut resou|rces(the|
|00005250| 50 61 74 68 29 20 69 6e | 74 6f 20 72 65 73 4c 69 |Path) in|to resLi|
|00005260| 73 74 0d 72 65 70 65 61 | 74 20 77 69 74 68 20 69 |st.repea|t with i|
|00005270| 20 3d 20 31 20 74 6f 20 | 74 68 65 20 6e 75 6d 62 | = 1 to |the numb|
|00005280| 65 72 20 6f 66 20 6c 69 | 6e 65 73 20 69 6e 20 72 |er of li|nes in r|
|00005290| 65 73 4c 69 73 74 0d 70 | 75 74 20 6c 69 6e 65 20 |esList.p|ut line |
|000052a0| 69 20 6f 66 20 72 65 73 | 4c 69 73 74 20 69 6e 74 |i of res|List int|
|000052b0| 6f 20 72 65 73 4c 69 6e | 65 0d 70 75 74 20 74 68 |o resLin|e.put th|
|000052c0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 77 6f 72 64 |e number| of word|
|000052d0| 73 20 69 6e 20 72 65 73 | 4c 69 6e 65 20 69 6e 74 |s in res|Line int|
|000052e0| 6f 20 77 43 6f 75 6e 74 | 0d 69 66 20 77 6f 72 64 |o wCount|.if word|
|000052f0| 20 31 20 6f 66 20 72 65 | 73 4c 69 6e 65 20 3d 20 | 1 of re|sLine = |
|00005300| 72 65 73 54 79 70 65 20 | 74 68 65 6e 0d 69 66 20 |resType |then.if |
|00005310| 72 65 73 49 44 20 ad 20 | 65 6d 70 74 79 20 74 68 |resID . |empty th|
|00005320| 65 6e 0d 69 66 20 77 6f | 72 64 20 32 20 6f 66 20 |en.if wo|rd 2 of |
|00005330| 72 65 73 4c 69 6e 65 20 | 3d 20 72 65 73 49 44 20 |resLine |= resID |
|00005340| 74 68 65 6e 0d 69 66 20 | 72 65 73 4e 61 6d 20 ad |then.if |resNam .|
|00005350| 20 65 6d 70 74 79 20 74 | 68 65 6e 0d 69 66 20 77 | empty t|hen.if w|
|00005360| 6f 72 64 20 34 20 74 6f | 20 77 43 6f 75 6e 74 20 |ord 4 to| wCount |
|00005370| 6f 66 20 72 65 73 4c 69 | 6e 65 20 3d 20 72 65 73 |of resLi|ne = res|
|00005380| 4e 61 6d 20 74 68 65 6e | 0d 72 65 74 75 72 6e 20 |Nam then|.return |
|00005390| 54 52 55 45 0d 65 6c 73 | 65 0d 72 65 74 75 72 6e |TRUE.els|e.return|
|000053a0| 20 46 41 4c 53 45 0d 65 | 6e 64 20 69 66 0d 65 6e | FALSE.e|nd if.en|
|000053b0| 64 20 69 66 0d 65 6e 64 | 20 69 66 0d 65 6c 73 65 |d if.end| if.else|
|000053c0| 20 69 66 20 72 65 73 4e | 61 6d 20 ad 20 65 6d 70 | if resN|am . emp|
|000053d0| 74 79 20 74 68 65 6e 0d | 69 66 20 77 6f 72 64 20 |ty then.|if word |
|000053e0| 34 20 74 6f 20 77 43 6f | 75 6e 74 20 6f 66 20 72 |4 to wCo|unt of r|
|000053f0| 65 73 4c 69 6e 65 20 3d | 20 72 65 73 4e 61 6d 20 |esLine =| resNam |
|00005400| 74 68 65 6e 0d 72 65 74 | 75 72 6e 20 54 52 55 45 |then.ret|urn TRUE|
|00005410| 0d 65 6c 73 65 0d 72 65 | 74 75 72 6e 20 46 41 4c |.else.re|turn FAL|
|00005420| 53 45 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 69 66 |SE.end i|f.end if|
|00005430| 0d 65 6e 64 20 69 66 0d | 65 6e 64 20 72 65 70 65 |.end if.|end repe|
|00005440| 61 74 0d 72 65 74 75 72 | 6e 20 46 41 4c 53 45 0d |at.retur|n FALSE.|
|00005450| 65 6e 64 20 63 68 65 63 | 6b 46 6f 72 52 65 73 6f |end chec|kForReso|
|00005460| 75 72 63 65 0d 0d 2d 2d | a5 0d 66 75 6e 63 74 69 |urce..--|..functi|
|00005470| 6f 6e 20 72 65 70 6c 61 | 63 65 53 74 72 20 73 74 |on repla|ceStr st|
|00005480| 72 2c 63 68 31 2c 63 68 | 32 0d 2d 2d 2d 2d 2d 2d |r,ch1,ch|2.------|
|00005490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000054a0| 2d 2d 2d 2d 2d 2d 2d 0d | 2d 2d 20 52 65 70 6c 61 |-------.|-- Repla|
|000054b0| 63 65 20 61 6c 6c 20 6f | 63 63 75 72 72 65 6e 63 |ce all o|ccurrenc|
|000054c0| 65 73 20 6f 66 20 61 20 | 73 70 65 63 69 66 69 65 |es of a |specifie|
|000054d0| 64 20 63 68 61 72 61 63 | 74 65 72 20 69 6e 20 74 |d charac|ter in t|
|000054e0| 68 65 20 73 74 72 69 6e | 67 0d 2d 2d 20 77 69 74 |he strin|g.-- wit|
|000054f0| 68 20 73 6f 6d 65 20 6f | 74 68 65 72 20 73 70 65 |h some o|ther spe|
|00005500| 63 69 66 69 65 64 20 63 | 68 61 72 61 63 74 65 72 |cified c|haracter|
|00005510| 2e 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..------|--------|
|00005520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00005530| 69 66 20 73 74 72 20 3d | 20 65 6d 70 74 79 20 74 |if str =| empty t|
|00005540| 68 65 6e 20 72 65 74 75 | 72 6e 20 65 6d 70 74 79 |hen retu|rn empty|
|00005550| 0d 72 65 70 65 61 74 0d | 67 65 74 20 6f 66 66 73 |.repeat.|get offs|
|00005560| 65 74 28 63 68 31 2c 73 | 74 72 29 0d 70 75 74 20 |et(ch1,s|tr).put |
|00005570| 69 74 20 69 6e 74 6f 20 | 70 6f 73 0d 69 66 20 70 |it into |pos.if p|
|00005580| 6f 73 20 3d 20 30 20 74 | 68 65 6e 0d 72 65 74 75 |os = 0 t|hen.retu|
|00005590| 72 6e 20 73 74 72 0d 65 | 6c 73 65 0d 70 75 74 20 |rn str.e|lse.put |
|000055a0| 63 68 32 20 69 6e 74 6f | 20 63 68 61 72 20 70 6f |ch2 into| char po|
|000055b0| 73 20 6f 66 20 73 74 72 | 0d 65 6e 64 20 69 66 0d |s of str|.end if.|
|000055c0| 65 6e 64 20 72 65 70 65 | 61 74 0d 65 6e 64 20 72 |end repe|at.end r|
|000055d0| 65 70 6c 61 63 65 53 74 | 72 0d 0d 2d 2d a5 0d 66 |eplaceSt|r..--..f|
|000055e0| 75 6e 63 74 69 6f 6e 20 | 66 69 6c 65 53 74 61 74 |unction |fileStat|
|000055f0| 75 73 20 66 4e 61 6d 65 | 0d 2d 2d 2d 2d 2d 2d 2d |us fName|.-------|
|00005600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005610| 0d 2d 2d 20 52 65 74 75 | 72 6e 73 20 54 52 55 45 |.-- Retu|rns TRUE|
|00005620| 20 69 66 20 74 68 65 20 | 73 70 65 63 69 66 69 65 | if the |specifie|
|00005630| 64 20 66 69 6c 65 20 65 | 78 69 73 74 73 20 61 6e |d file e|xists an|
|00005640| 64 20 46 41 4c 53 45 20 | 69 66 20 69 74 20 64 6f |d FALSE |if it do|
|00005650| 65 73 0d 2d 2d 20 6e 6f | 74 20 6f 72 20 69 73 20 |es.-- no|t or is |
|00005660| 6f 74 68 65 72 77 69 73 | 65 20 75 6e 61 76 61 69 |otherwis|e unavai|
|00005670| 6c 61 62 6c 65 20 66 6f | 72 20 73 6f 6d 65 20 72 |lable fo|r some r|
|00005680| 65 61 73 6f 6e 2c 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |eason,.-|--------|
|00005690| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 70 |--------|------.p|
|000056a0| 75 74 20 46 69 6c 65 45 | 78 69 73 74 73 28 66 4e |ut FileE|xists(fN|
|000056b0| 61 6d 65 29 20 69 6e 74 | 6f 20 66 45 72 72 6f 72 |ame) int|o fError|
|000056c0| 0d 69 66 20 66 45 72 72 | 6f 72 20 3d 20 54 52 55 |.if fErr|or = TRU|
|000056d0| 45 20 74 68 65 6e 0d 72 | 65 74 75 72 6e 20 54 52 |E then.r|eturn TR|
|000056e0| 55 45 0d 65 6c 73 65 0d | 61 6c 65 72 74 20 22 43 |UE.else.|alert "C|
|000056f0| 61 6e 27 74 20 6f 70 65 | 6e 20 66 69 6c 65 22 20 |an't ope|n file" |
|00005700| 26 26 20 66 4e 61 6d 65 | 20 26 20 22 2e 22 20 26 |&& fName| & "." &|
|00005710| 26 20 66 45 72 72 6f 72 | 0d 72 65 74 75 72 6e 20 |& fError|.return |
|00005720| 46 41 4c 53 45 0d 65 6e | 64 20 69 66 0d 65 6e 64 |FALSE.en|d if.end|
|00005730| 20 66 69 6c 65 53 74 61 | 74 75 73 0d 0d 2d 2d a5 | fileSta|tus..--.|
|00005740| 0d 66 75 6e 63 74 69 6f | 6e 20 66 69 6e 64 53 74 |.functio|n findSt|
|00005750| 61 63 6b 20 70 72 6f 6d | 70 74 0d 2d 2d 2d 2d 2d |ack prom|pt.-----|
|00005760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005770| 2d 2d 0d 2d 2d 20 41 73 | 6b 73 20 74 68 65 20 75 |--.-- As|ks the u|
|00005780| 73 65 72 20 74 6f 20 6c | 6f 63 61 74 65 20 61 20 |ser to l|ocate a |
|00005790| 73 74 61 63 6b 20 77 69 | 74 68 20 61 20 70 72 6f |stack wi|th a pro|
|000057a0| 6d 70 74 20 74 6f 20 61 | 69 64 20 63 68 6f 69 63 |mpt to a|id choic|
|000057b0| 65 2e 0d 2d 2d 20 49 66 | 20 74 68 65 20 75 73 65 |e..-- If| the use|
|000057c0| 72 20 63 61 6e 20 6c 6f | 63 61 74 65 20 61 20 73 |r can lo|cate a s|
|000057d0| 75 69 74 61 62 6c 65 20 | 66 69 6c 65 2c 20 69 74 |uitable |file, it|
|000057e0| 20 72 65 74 75 72 6e 73 | 20 74 68 65 20 66 75 6c | returns| the ful|
|000057f0| 6c 0d 2d 2d 20 70 61 74 | 68 6e 61 6d 65 2e 20 4f |l.-- pat|hname. O|
|00005800| 74 68 65 72 77 69 73 65 | 20 69 74 20 72 65 74 75 |therwise| it retu|
|00005810| 72 6e 73 20 65 6d 70 74 | 79 2e 0d 2d 2d 2d 2d 2d |rns empt|y..-----|
|00005820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005830| 2d 2d 0d 70 75 74 20 65 | 6d 70 74 79 20 69 6e 74 |--.put e|mpty int|
|00005840| 6f 20 66 4e 61 6d 65 0d | 61 6e 73 77 65 72 20 66 |o fName.|answer f|
|00005850| 69 6c 65 20 70 72 6f 6d | 70 74 20 6f 66 20 74 79 |ile prom|pt of ty|
|00005860| 70 65 20 22 53 54 41 4b | 22 0d 69 66 20 69 74 20 |pe "STAK|".if it |
|00005870| ad 20 65 6d 70 74 79 20 | 74 68 65 6e 0d 69 66 20 |. empty |then.if |
|00005880| 66 69 6c 65 53 74 61 74 | 75 73 28 69 74 29 20 3d |fileStat|us(it) =|
|00005890| 20 54 52 55 45 20 74 68 | 65 6e 0d 70 75 74 20 69 | TRUE th|en.put i|
|000058a0| 74 20 69 6e 74 6f 20 66 | 4e 61 6d 65 0d 65 6e 64 |t into f|Name.end|
|000058b0| 20 69 66 0d 65 6e 64 20 | 69 66 0d 72 65 74 75 72 | if.end |if.retur|
|000058c0| 6e 20 66 4e 61 6d 65 0d | 65 6e 64 20 66 69 6e 64 |n fName.|end find|
|000058d0| 53 74 61 63 6b 0d 0d 2d | 2d a5 0d 66 75 6e 63 74 |Stack..-|-..funct|
|000058e0| 69 6f 6e 20 6f 70 65 6e | 46 69 6c 65 20 70 72 6f |ion open|File pro|
|000058f0| 6d 70 74 2c 66 54 79 70 | 65 0d 2d 2d 2d 2d 2d 2d |mpt,fTyp|e.------|
|00005900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005910| 2d 2d 2d 2d 2d 2d 0d 2d | 2d 20 4f 70 65 6e 20 61 |------.-|- Open a|
|00005920| 20 66 69 6c 65 20 66 6f | 72 20 72 65 61 64 69 6e | file fo|r readin|
|00005930| 67 20 61 6e 64 20 72 65 | 74 75 72 6e 20 69 74 73 |g and re|turn its|
|00005940| 20 66 75 6c 6c 20 70 61 | 74 68 6e 61 6d 65 2e 20 | full pa|thname. |
|00005950| 49 66 20 74 68 65 72 65 | 20 69 73 0d 2d 2d 20 61 |If there| is.-- a|
|00005960| 6e 20 65 72 72 6f 72 2c | 20 61 20 6d 65 73 73 61 |n error,| a messa|
|00005970| 67 65 20 69 73 20 64 69 | 73 70 6c 61 79 65 64 20 |ge is di|splayed |
|00005980| 66 6f 72 20 74 68 65 20 | 75 73 65 72 20 74 6f 20 |for the |user to |
|00005990| 61 63 6b 6e 6f 77 6c 65 | 64 67 65 20 61 6e 64 0d |acknowle|dge and.|
|000059a0| 2d 2d 20 22 65 6d 70 74 | 79 22 20 69 73 20 72 65 |-- "empt|y" is re|
|000059b0| 74 75 72 6e 65 64 2e 0d | 2d 2d 2d 2d 2d 2d 2d 2d |turned..|--------|
|000059c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000059d0| 2d 2d 2d 2d 0d 70 75 74 | 20 65 6d 70 74 79 20 69 |----.put| empty i|
|000059e0| 6e 74 6f 20 66 4e 61 6d | 65 0d 61 6e 73 77 65 72 |nto fNam|e.answer|
|000059f0| 20 66 69 6c 65 20 70 72 | 6f 6d 70 74 20 6f 66 20 | file pr|ompt of |
|00005a00| 74 79 70 65 20 66 54 79 | 70 65 0d 69 66 20 69 74 |type fTy|pe.if it|
|00005a10| 20 ad 20 65 6d 70 74 79 | 20 74 68 65 6e 0d 69 66 | . empty| then.if|
|00005a20| 20 66 69 6c 65 53 74 61 | 74 75 73 28 69 74 29 20 | fileSta|tus(it) |
|00005a30| 3d 20 54 52 55 45 20 74 | 68 65 6e 0d 70 75 74 20 |= TRUE t|hen.put |
|00005a40| 69 74 20 69 6e 74 6f 20 | 66 4e 61 6d 65 0d 6f 70 |it into |fName.op|
|00005a50| 65 6e 20 66 69 6c 65 20 | 66 4e 61 6d 65 0d 65 6e |en file |fName.en|
|00005a60| 64 20 69 66 0d 65 6e 64 | 20 69 66 0d 72 65 74 75 |d if.end| if.retu|
|00005a70| 72 6e 20 66 4e 61 6d 65 | 0d 65 6e 64 20 6f 70 65 |rn fName|.end ope|
|00005a80| 6e 46 69 6c 65 0d 0d 2d | 2d a5 0d 66 75 6e 63 74 |nFile..-|-..funct|
|00005a90| 69 6f 6e 20 63 72 65 61 | 74 65 46 69 6c 65 20 70 |ion crea|teFile p|
|00005aa0| 72 6f 6d 70 74 2c 66 44 | 65 66 0d 2d 2d 2d 2d 2d |rompt,fD|ef.-----|
|00005ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 2d 2d 20 4f 70 65 6e |--------|.-- Open|
|00005ad0| 20 61 20 66 69 6c 65 20 | 66 6f 72 20 77 72 69 74 | a file |for writ|
|00005ae0| 69 6e 67 20 61 6e 64 20 | 72 65 74 75 72 6e 20 69 |ing and |return i|
|00005af0| 74 73 20 66 75 6c 6c 20 | 70 61 74 68 6e 61 6d 65 |ts full |pathname|
|00005b00| 2e 20 49 66 20 74 68 65 | 72 65 20 69 73 0d 2d 2d |. If the|re is.--|
|00005b10| 20 61 6e 20 65 72 72 6f | 72 2c 20 61 20 6d 65 73 | an erro|r, a mes|
|00005b20| 73 61 67 65 20 69 73 20 | 64 69 73 70 6c 61 79 65 |sage is |displaye|
|00005b30| 64 20 66 6f 72 20 74 68 | 65 20 75 73 65 72 20 74 |d for th|e user t|
|00005b40| 6f 20 61 63 6b 6e 6f 77 | 6c 65 64 67 65 20 61 6e |o acknow|ledge an|
|00005b50| 64 0d 2d 2d 20 22 65 6d | 70 74 79 22 20 69 73 20 |d.-- "em|pty" is |
|00005b60| 72 65 74 75 72 6e 65 64 | 2e 0d 2d 2d 2d 2d 2d 2d |returned|..------|
|00005b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005b80| 2d 2d 2d 2d 2d 2d 2d 0d | 70 75 74 20 65 6d 70 74 |-------.|put empt|
|00005b90| 79 20 69 6e 74 6f 20 66 | 4e 61 6d 65 0d 61 73 6b |y into f|Name.ask|
|00005ba0| 20 66 69 6c 65 20 70 72 | 6f 6d 70 74 20 77 69 74 | file pr|ompt wit|
|00005bb0| 68 20 66 44 65 66 0d 69 | 66 20 69 74 20 ad 20 65 |h fDef.i|f it . e|
|00005bc0| 6d 70 74 79 20 74 68 65 | 6e 0d 70 75 74 20 69 74 |mpty the|n.put it|
|00005bd0| 20 69 6e 74 6f 20 66 4e | 61 6d 65 0d 6f 70 65 6e | into fN|ame.open|
|00005be0| 20 66 69 6c 65 20 66 4e | 61 6d 65 0d 69 66 20 66 | file fN|ame.if f|
|00005bf0| 69 6c 65 53 74 61 74 75 | 73 28 66 4e 61 6d 65 29 |ileStatu|s(fName)|
|00005c00| 20 3d 20 46 41 4c 53 45 | 20 74 68 65 6e 20 70 75 | = FALSE| then pu|
|00005c10| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 66 4e 61 |t empty |into fNa|
|00005c20| 6d 65 0d 65 6e 64 20 69 | 66 0d 72 65 74 75 72 6e |me.end i|f.return|
|00005c30| 20 66 4e 61 6d 65 0d 65 | 6e 64 20 63 72 65 61 74 | fName.e|nd creat|
|00005c40| 65 46 69 6c 65 0d 0d 2d | 2d a5 0d 6f 6e 20 61 6c |eFile..-|-..on al|
|00005c50| 65 72 74 20 73 74 72 0d | 2d 2d 2d 2d 2d 2d 2d 2d |ert str.|--------|
|00005c60| 2d 2d 0d 2d 2d 20 44 69 | 73 70 6c 61 79 20 61 20 |--.-- Di|splay a |
|00005c70| 6d 65 73 73 61 67 65 20 | 66 6f 72 20 74 68 65 20 |message |for the |
|00005c80| 75 73 65 72 20 69 6e 20 | 61 20 6d 6f 64 61 6c 20 |user in |a modal |
|00005c90| 64 69 61 6c 6f 67 20 77 | 69 74 68 20 61 20 73 69 |dialog w|ith a si|
|00005ca0| 6e 67 6c 65 0d 2d 2d 20 | 22 4f 4b 22 20 62 75 74 |ngle.-- |"OK" but|
|00005cb0| 74 6f 6e 2e 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |ton..---|-------.|
|00005cc0| 62 65 65 70 0d 61 6e 73 | 77 65 72 20 73 74 72 0d |beep.ans|wer str.|
|00005cd0| 65 6e 64 20 61 6c 65 72 | 74 0d 0d 2d 2d a5 0d 66 |end aler|t..--..f|
|00005ce0| 75 6e 63 74 69 6f 6e 20 | 63 6f 6e 66 69 72 6d 20 |unction |confirm |
|00005cf0| 73 74 72 2c 62 31 2c 62 | 32 2c 62 33 0d 2d 2d 2d |str,b1,b|2,b3.---|
|00005d00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005d10| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 2d 2d 20 44 69 73 70 |--------|.-- Disp|
|00005d20| 6c 61 79 20 61 20 64 69 | 61 6c 6f 67 20 77 69 74 |lay a di|alog wit|
|00005d30| 68 20 75 70 20 74 6f 20 | 74 68 72 65 65 20 62 75 |h up to |three bu|
|00005d40| 74 74 6f 6e 73 20 61 6e | 64 20 70 72 6f 6d 70 74 |ttons an|d prompt|
|00005d50| 20 74 68 65 20 75 73 65 | 72 20 66 6f 72 0d 2d 2d | the use|r for.--|
|00005d60| 20 61 20 72 65 73 70 6f | 6e 73 65 2e 20 54 68 65 | a respo|nse. The|
|00005d70| 20 62 75 74 74 6f 6e 73 | 20 6d 61 79 20 62 65 20 | buttons| may be |
|00005d80| 73 70 65 63 69 66 69 65 | 64 2e 0d 2d 2d 2d 2d 2d |specifie|d..-----|
|00005d90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005da0| 2d 2d 2d 2d 2d 2d 0d 62 | 65 65 70 0d 70 75 74 20 |------.b|eep.put |
|00005db0| 70 61 72 61 6d 43 6f 75 | 6e 74 28 29 20 69 6e 74 |paramCou|nt() int|
|00005dc0| 6f 20 70 43 6f 75 6e 74 | 0d 69 66 20 70 43 6f 75 |o pCount|.if pCou|
|00005dd0| 6e 74 20 3d 20 31 20 74 | 68 65 6e 0d 61 6e 73 77 |nt = 1 t|hen.answ|
|00005de0| 65 72 20 73 74 72 20 77 | 69 74 68 20 22 4f 4b 22 |er str w|ith "OK"|
|00005df0| 20 6f 72 20 22 43 61 6e | 63 65 6c 22 0d 65 6c 73 | or "Can|cel".els|
|00005e00| 65 20 69 66 20 70 43 6f | 75 6e 74 20 3d 20 32 20 |e if pCo|unt = 2 |
|00005e10| 74 68 65 6e 0d 61 6e 73 | 77 65 72 20 73 74 72 20 |then.ans|wer str |
|00005e20| 77 69 74 68 20 62 31 0d | 65 6c 73 65 20 69 66 20 |with b1.|else if |
|00005e30| 70 43 6f 75 6e 74 20 3d | 20 33 20 74 68 65 6e 0d |pCount =| 3 then.|
|00005e40| 61 6e 73 77 65 72 20 73 | 74 72 20 77 69 74 68 20 |answer s|tr with |
|00005e50| 62 31 20 6f 72 20 62 32 | 0d 65 6c 73 65 0d 61 6e |b1 or b2|.else.an|
|00005e60| 73 77 65 72 20 73 74 72 | 20 77 69 74 68 20 62 31 |swer str| with b1|
|00005e70| 20 6f 72 20 62 32 20 6f | 72 20 62 33 0d 65 6e 64 | or b2 o|r b3.end|
|00005e80| 20 69 66 0d 72 65 74 75 | 72 6e 20 69 74 0d 65 6e | if.retu|rn it.en|
|00005e90| 64 20 63 6f 6e 66 69 72 | 6d 0d 0d 2d 2d a5 0d 66 |d confir|m..--..f|
|00005ea0| 75 6e 63 74 69 6f 6e 20 | 72 65 71 75 65 73 74 20 |unction |request |
|00005eb0| 73 74 72 2c 64 65 66 0d | 2d 2d 2d 2d 2d 2d 2d 2d |str,def.|--------|
|00005ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 2d |--------|------.-|
|00005ed0| 2d 20 44 69 73 70 6c 61 | 79 20 61 20 71 75 65 73 |- Displa|y a ques|
|00005ee0| 74 69 6f 6e 20 74 6f 20 | 77 68 69 63 68 20 74 68 |tion to |which th|
|00005ef0| 65 20 75 73 65 72 20 6d | 75 73 74 20 72 65 73 70 |e user m|ust resp|
|00005f00| 6f 6e 64 20 62 79 20 74 | 79 70 69 6e 67 0d 2d 2d |ond by t|yping.--|
|00005f10| 20 69 6e 20 61 20 6d 6f | 64 61 6c 20 64 69 61 6c | in a mo|dal dial|
|00005f20| 6f 67 2e 20 49 66 20 74 | 68 65 20 75 73 65 72 20 |og. If t|he user |
|00005f30| 74 79 70 65 73 20 6e 6f | 74 69 6e 67 20 6f 72 20 |types no|ting or |
|00005f40| 43 61 6e 63 65 6c 73 2c | 20 65 6d 70 74 79 0d 2d |Cancels,| empty.-|
|00005f50| 2d 20 69 73 20 72 65 74 | 75 72 6e 65 64 2e 20 4f |- is ret|urned. O|
|00005f60| 74 68 65 72 77 69 73 65 | 20 69 74 20 69 73 20 74 |therwise| it is t|
|00005f70| 68 65 20 75 73 65 72 27 | 73 20 72 65 73 70 6f 6e |he user'|s respon|
|00005f80| 73 65 2e 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |se..----|--------|
|00005f90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 62 65 65 70 0d |--------|--.beep.|
|00005fa0| 61 73 6b 20 73 74 72 20 | 77 69 74 68 20 64 65 66 |ask str |with def|
|00005fb0| 0d 72 65 74 75 72 6e 20 | 69 74 0d 65 6e 64 20 72 |.return |it.end r|
|00005fc0| 65 71 75 65 73 74 0d 0d | 2d 2d a5 0d 6f 6e 20 71 |equest..|--..on q|
|00005fd0| 75 69 74 4b 69 6d 53 74 | 61 63 6b 73 20 70 72 6f |uitKimSt|acks pro|
|00005fe0| 6d 70 74 2c 73 74 61 74 | 0d 2d 2d 2d 2d 2d 2d 2d |mpt,stat|.-------|
|00005ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006000| 2d 2d 2d 0d 2d 2d 20 53 | 68 6f 77 20 74 68 65 20 |---.-- S|how the |
|00006010| 75 73 65 72 20 61 6e 20 | 65 72 72 6f 72 20 6d 65 |user an |error me|
|00006020| 73 73 61 67 65 2e 20 49 | 66 20 74 68 65 20 65 72 |ssage. I|f the er|
|00006030| 72 6f 72 20 69 73 20 66 | 61 74 61 6c 2c 20 74 68 |ror is f|atal, th|
|00006040| 65 20 75 73 65 72 0d 2d | 2d 20 69 73 20 61 73 6b |e user.-|- is ask|
|00006050| 65 64 20 69 66 20 74 68 | 65 79 20 77 61 6e 74 20 |ed if th|ey want |
|00006060| 74 6f 20 67 6f 20 48 6f | 6d 65 20 6f 72 20 74 6f |to go Ho|me or to|
|00006070| 20 74 68 65 20 46 69 6e | 64 65 72 2e 20 49 66 20 | the Fin|der. If |
|00006080| 74 68 65 20 65 72 72 6f | 72 0d 2d 2d 20 69 73 20 |the erro|r.-- is |
|00006090| 6e 6f 6e 2d 66 61 74 61 | 6c 2c 20 74 68 65 79 20 |non-fata|l, they |
|000060a0| 61 72 65 20 61 6c 73 6f | 20 67 69 76 65 6e 20 74 |are also| given t|
|000060b0| 68 65 20 63 68 61 6e 63 | 65 20 74 6f 20 63 68 61 |he chanc|e to cha|
|000060c0| 6e 67 65 20 74 68 65 69 | 72 20 6d 69 6e 64 73 0d |nge thei|r minds.|
|000060d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000060e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 2d 2d 0d 67 6c |--------|--.--.gl|
|000060f0| 6f 62 61 6c 20 47 4f 4f | 44 5f 51 55 49 54 0d 2d |obal GOO|D_QUIT.-|
|00006100| 2d 0d 70 75 74 20 70 61 | 72 61 6d 43 6f 75 6e 74 |-.put pa|ramCount|
|00006110| 28 29 20 69 6e 74 6f 20 | 70 43 6f 75 6e 74 0d 70 |() into |pCount.p|
|00006120| 75 74 20 22 44 6f 20 79 | 6f 75 20 77 61 6e 74 20 |ut "Do y|ou want |
|00006130| 74 6f 20 67 6f 20 74 6f | 3a 22 20 69 6e 74 6f 20 |to go to|:" into |
|00006140| 64 65 66 50 72 6f 6d 70 | 74 0d 69 66 20 70 43 6f |defPromp|t.if pCo|
|00006150| 75 6e 74 20 3d 20 30 20 | 74 68 65 6e 0d 70 75 74 |unt = 0 |then.put|
|00006160| 20 65 6d 70 74 79 20 69 | 6e 74 6f 20 70 72 6f 6d | empty i|nto prom|
|00006170| 70 74 0d 70 75 74 20 65 | 6d 70 74 79 20 69 6e 74 |pt.put e|mpty int|
|00006180| 6f 20 73 74 61 74 0d 65 | 6c 73 65 20 69 66 20 70 |o stat.e|lse if p|
|00006190| 43 6f 75 6e 74 20 3d 20 | 31 20 74 68 65 6e 0d 70 |Count = |1 then.p|
|000061a0| 75 74 20 65 6d 70 74 79 | 20 69 6e 74 6f 20 73 74 |ut empty| into st|
|000061b0| 61 74 0d 65 6e 64 20 69 | 66 0d 69 66 20 73 74 61 |at.end i|f.if sta|
|000061c0| 74 20 3d 20 65 6d 70 74 | 79 20 74 68 65 6e 0d 70 |t = empt|y then.p|
|000061d0| 75 74 20 63 6f 6e 66 69 | 72 6d 28 70 72 6f 6d 70 |ut confi|rm(promp|
|000061e0| 74 20 26 26 20 64 65 66 | 50 72 6f 6d 70 74 2c 22 |t && def|Prompt,"|
|000061f0| 48 6f 6d 65 22 2c 22 46 | 69 6e 64 65 72 22 2c 22 |Home","F|inder","|
|00006200| 43 61 6e 63 65 6c 22 29 | 20 69 6e 74 6f 20 72 65 |Cancel")| into re|
|00006210| 73 70 0d 65 6c 73 65 0d | 70 75 74 20 63 6f 6e 66 |sp.else.|put conf|
|00006220| 69 72 6d 28 70 72 6f 6d | 70 74 20 26 26 20 64 65 |irm(prom|pt && de|
|00006230| 66 50 72 6f 6d 70 74 2c | 22 48 6f 6d 65 22 2c 22 |fPrompt,|"Home","|
|00006240| 46 69 6e 64 65 72 22 29 | 20 69 6e 74 6f 20 72 65 |Finder")| into re|
|00006250| 73 70 0d 65 6e 64 20 69 | 66 0d 69 66 20 72 65 73 |sp.end i|f.if res|
|00006260| 70 20 3d 20 22 48 6f 6d | 65 22 20 74 68 65 6e 0d |p = "Hom|e" then.|
|00006270| 2d 2d 0d 70 75 74 20 54 | 52 55 45 20 69 6e 74 6f |--.put T|RUE into|
|00006280| 20 47 4f 4f 44 5f 51 55 | 49 54 0d 2d 2d 0d 64 6f | GOOD_QU|IT.--.do|
|00006290| 4d 65 6e 75 20 22 48 6f | 6d 65 22 0d 65 6c 73 65 |Menu "Ho|me".else|
|000062a0| 20 69 66 20 72 65 73 70 | 20 3d 20 22 46 69 6e 64 | if resp| = "Find|
|000062b0| 65 72 22 20 74 68 65 6e | 0d 2d 2d 0d 70 75 74 20 |er" then|.--.put |
|000062c0| 54 52 55 45 20 69 6e 74 | 6f 20 47 4f 4f 44 5f 51 |TRUE int|o GOOD_Q|
|000062d0| 55 49 54 0d 2d 2d 0d 64 | 6f 4d 65 6e 75 20 22 51 |UIT.--.d|oMenu "Q|
|000062e0| 75 69 74 20 48 79 70 65 | 72 43 61 72 64 22 0d 65 |uit Hype|rCard".e|
|000062f0| 6e 64 20 69 66 0d 65 6e | 64 20 71 75 69 74 4b 69 |nd if.en|d quitKi|
|00006300| 6d 53 74 61 63 6b 73 0d | 0d 2d 2d a5 0d 6f 6e 20 |mStacks.|.--..on |
|00006310| 61 73 6b 55 73 65 72 54 | 6f 49 6e 73 74 61 6c 6c |askUserT|oInstall|
|00006320| 20 70 72 6f 6d 70 74 0d | 2d 2d 2d 2d 2d 2d 2d 2d | prompt.|--------|
|00006330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006340| 0d 2d 2d 20 54 68 69 73 | 20 69 73 20 63 61 6c 6c |.-- This| is call|
|00006350| 65 64 20 69 66 20 69 74 | 20 69 73 20 64 65 74 65 |ed if it| is dete|
|00006360| 63 74 65 64 20 74 68 61 | 74 20 74 68 65 20 75 73 |cted tha|t the us|
|00006370| 65 72 20 69 73 20 61 74 | 74 65 6d 70 74 69 6e 67 |er is at|tempting|
|00006380| 0d 2d 2d 20 74 6f 20 72 | 75 6e 20 74 68 65 20 22 |.-- to r|un the "|
|00006390| 4b 69 6d 53 74 61 63 6b | 73 20 26 20 43 44 2d 52 |KimStack|s & CD-R|
|000063a0| 4f 4d 22 20 73 75 69 74 | 65 20 66 72 6f 6d 20 74 |OM" suit|e from t|
|000063b0| 68 65 20 43 44 2d 52 4f | 4d 2e 0d 2d 2d 2d 2d 2d |he CD-RO|M..-----|
|000063c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000063d0| 2d 2d 2d 0d 67 6c 6f 62 | 61 6c 20 43 44 5f 50 41 |---.glob|al CD_PA|
|000063e0| 54 48 0d 2d 2d 0d 70 75 | 74 20 22 57 6f 75 6c 64 |TH.--.pu|t "Would|
|000063f0| 20 79 6f 75 20 6c 69 6b | 65 20 74 6f 20 72 75 6e | you lik|e to run|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.